このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1291471791/933
#   
#  * 
#  ** 
#  *** 
#  **** 
#  ***** 
#  ****** 
#  ******* 
#  ******** 
#  ********* 
#  ********** 
#   
#  こんな感じで表示したいんだけど、どうすればいいの? 
# 

'*\n**\n***\n****\n*****\n******\n*******\n********\n*********\n********** \n\nこんな感じで表示したいんだけど、どうすればいいの?' :-
        atom_chars(**********,L),
        append([*|R0],R,L),
        concat_atom([*|R0],S),
        write_formatted('%t\n',[S]),
        R = [].

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

'*\n**\n***\n****\n*****\n******\n*******\n********\n*********\n********** \n\nこんな感じで表示したいんだけど、どうすればいいの?' :-
        'こんな感じで表示したいんだけど、どうすればいいの?'('').

'こんな感じで表示したいんだけど、どうすればいいの?'('**********') :- !.
'こんな感じで表示したいんだけど、どうすればいいの?'(_星列) :-
        atom_concat(_星列,*,_星列の二),
        write_formatted('%t\n',[_星列の二]),
        'こんな感じで表示したいんだけど、どうすればいいの?'(_星列の二).