このディレクトリの索引
http://pc12.2ch.net/test/read.cgi/tech/1274827528/28
#  猫、以下の話だが↓この結果が 
#   
#  @ 
#   @ 
#    @ 
#     @ 
#      @ 
#     @ 
#    @ 
#   @ 
#  @ 
# 
# 

猫、以下の話 :-
        猫、以下の話([],[' ',' ',' ',' ']).

猫、以下の話(L,L) :- 
        concat_atom(L,S),
        write_formatted('%t@\n',[S]),!.
猫、以下の話(L,L2) :-
        concat_atom(L,S),
        write_formatted('%t@\n',[S]),
        猫、以下の話([' '|L],L2),
        write_formatted('%t\n',[S]).