このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1288531658/586
#  [1] 授業単元:プログラミング演習(テーマ:関数の使い方とデータの受け渡し方)  
#  [2] 問題文(含コード&リンク):main 関数内の標準入力から入力された 
#  文字列を引数として関数に渡し、関数内で表示するプログラムを作成せよ。  
#    
%  関数ということにこだわるなら。

:- op(750,xfx,は).

'main 関数内の標準入力から入力された文字列を引数として関数に渡し、関数内で表示するプログラムを作成せよ。'(_結果) :-
        get_line(_文字列),
        _結果 は 関数に渡して関数内で表示(_文字列).

関数に渡して関数内で表示(Line,ok) :-
        write_formatted('%t\n',[Line]).