411 REFERENCE · Wikibooks
Prolog/Testing Terms
Reference material by Wikibooks contributors. This retains its source identity and is not 411 news reporting.
process(File) :-
open(File, read, In),
get_char(In, Char1),
process_stream(Char1, In),
close(In).
process_stream(end_of_file, _) :- !.
process_stream(Char, In) :-
print(Char),
get_char(In, Char2),
process_stream(Char2, In).