fork download
  1. :- set_prolog_flag(verbose,silent).
  2. :- prompt(_, '').
  3. :- use_module(library(readutil)).
  4.  
  5. main:-
  6. process,
  7.  
  8. process:-
  9. /* your code goes here */
  10. member(X,[aaa,bbb,ccc]),
  11. member(X,[bbb,ccc,ddd]),
  12. write(X),
  13. false.
  14. process.
  15. :- main.
Success #stdin #stdout 0.07s 6932KB
stdin
Standard input is empty
stdout
bbbccc