main=interact$unlines.f"";f x(n:m)=f(' ':x)m++[x++unwords[[y]|y<-n:m]++x];f _ _=[]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page