main=readLn>>=mapM(putStrLn.reverse.snd.span(<'!')).(iterate(\x->foldr(\a b->[' ':s++" "|s<-b])x x++[s++s|s<-x])[" \\/ ","\\__/"]!!).pred
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page