t aitch 6:43pm >pl

Welcome to SWI-Prolog (Version 2.7.16)
Copyright (c) 1993-1996 University of Amsterdam.  All rights reserved.

For help, use ?- help(Topic). or ?- apropos(Word).

1 ?- [all].
proc.p compiled, 0.00 sec, 2,408 bytes.
dict.p compiled, 0.00 sec, 5,316 bytes.
all compiled, 0.00 sec, 8,432 bytes.

Yes


2 ?- listing(loop).

loop :-
        read(A),
        A \== quit,
        write(A),
        (   in_dictionary(A, B),
            pos(B, C),
            write(' is '),
            det(C, D),
            write(D),
            write(' '),
            write(C),
            write('.'),
            nl
        ;   write(' is not in the dictionary.'),
            nl
        ),
        nl,
        loop.
loop.

Yes

3 ?- loop.
|: runs.
runs is a verb.

|: high.
high is an adv.

|: flies.
flies is a verb.

|: goose.
goose is a noun.

|: geese.
geese is a noun.

|: mouse.
mouse is not in the dictionary.

|: quit.

Yes