main=interact$f.(" "++) f(a:x)=a!x:f x f a=a a!x|x<" #"=a|a:x<"# #"='#'|1>0=' '
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page