main=readLn>>=mapM putStrLn.f;(#)=replicate;a n=n#'+';b n=n#' '++"+";c m n=n#b n++a m:n#b n;f n=c n$div n 2
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page