>>736
% Prolog

テキストファイルをあらかじめ作っておいて、その内容を表示しながら別のファイルにコピーする(_入力ファイル,_出力ファイル) :-
　　open(_入力ファイル,read,Input),
　　open(_出力ファイル,write,Output),
　　repeat,
　　get_line(Input,Line),
　　行を表示しながら出力(Output,Line),
　　close(Output),
　　close(Input),!.

行を表示しながら出力(Output,end_of_file) :- !.
行を表示しながら出力(Output,Line) :-
　　write('%t\n',[Line]),
　　write_formatted('%t\n',[Line]),
　　fail.