:- pred noun(string).
:- mode noun(out) is multi.    % provide any one noun.
:- mode noun(in) is semidet.   % fail if given string isn't a known noun.
noun("frog").
noun("elephant").
noun("thing").