gistfile1.txt

main :-
        load_file('test.fil',X).

load_file(File, Out) :-
        seeing(Old),
        see(File),
        read_lines(Out),
        seen,
        see(Old),
        !.

read_lines([Line|Lines]) :-
        \+ at_end_of_stream,
        read_line(Data),
        process_line(Data,Line),
        read_lines(Lines).

read_lines([]).

process_line(X,Y) :- atom_codes(Y,X).