predicates run(char) goal run(X). /* This is a internal goal. */ clauses run(X) :- makewindow(1, 7, 7, \" Hello World Program \", 0, 0, 25, 80), write(\"Hello World (first)\"), readchar(X), removewindow. run(X) :- write(\"hello World (second)\"), readchar(X).