% File: proc.p
%       version 1.02

loop :- 
  read(X),
  X \== 'quit',
  write(X),
    % in_dict(X), pos(X,Pos), write(' is a(n) '), write(Pos), write('.'), nl;
  (
    in_dict(X), pos(X,Pos), write(' is '),
      det(Pos,Det), write(Det), write(' '), write(Pos), write('.'), nl;
    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").