从用户输入中获取查询

Question

如何在执行某些代码行后让用户提出查询？例如 -

woman(X):-
  ( X=18->write('yes'),nl
    ;
  ).
man(Y):-
  ( X=18->write('yes'),nl
    ;
  ).
main:-
 woman(18),
  write('Enter your query'),nl,
  "**HERE I WANT USER TO CALL ANY QUERY EITHER woman(X) or man(X) ??Can I Do it????**

我想首先执行main然后用户必须输入他的查询。这可能吗？我知道他可以直接调用查询但是他可以在执行main后执行吗？ / p>