% File: proc.p
%       version 1.04

loop :- 
  read(X),
  X \== 'quit',
  write(X),
  (
    in_dictionary(X,Entry), pos(Entry,Pos), write(' is '),
    det(Pos,Det), write(Det), write(' '), write(Pos), write('.'), nl,
    singular_of(_,Sing,Entry),
    plural_of(_,Plur,Entry),
    write('with singular '),
    write(Sing),
    write(' and plural '),
    write(Plur)
    ;
    write(' is not in the dictionary.'), nl
  ),
  nl,
  loop.

loop.

det(Word,an) :-
  vowel_start(Word).
det(_,a).

vowel_start(Word) :-
   name(Word,[C|_]),
   member(C,"aeiou").