このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1294061094/210
#  [1] 授業単元:プログラミング演習  
#  [2] 問題文(含コード&リンク) 
#   
#  問題4 
#   
#  キーボードから入力した文字列を、1文字毎に2回づつ表示するプログラムを作成 
#  せよ。 
#   
#  【実行例】  
#  文字列を入力してください:ABC  
#  文字列 = AABBCC  
#   
#  お願いします 
# 

'キーボードから入力した文字列を、1文字毎に2回づつ表示する' :-
        'キーボードから入力した文字列を'(_文字列),
        sub_atom(_文字列,_,1,R,_文字),
        write_formatted('%t%t',[_文字,_文字]),
        R = 0.