このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1381909900/309
#  C500問って本にあった 
#  
#  * 
#  ** 
#  *** 
#  **** 
#  ***** 
#  ****** 
#  ******* 
#  ******** 
#  ********* 
#  ********** 
#  ってのもいい問題かと 

'C500問って本にあった  

*
**
***
****
*****
******
*******
********
*********
**********
ってのもいい問題かと' :-
        atom_chars('**********',L),
        forall(append([H|R],_,L),(atomic_list_concat([H|R],S),writef('%t\n',[S])).