8 lines
122 B
Prolog
8 lines
122 B
Prolog
%File: stdin_to_stdout.pl
|
|
:- initialization(main).
|
|
|
|
main :- repeat,
|
|
get_char(X),
|
|
put_char(X),
|
|
X == end_of_file,
|
|
fail.
|