(%)=zipWith(++) x a=p++s%a%s++p where p=a%s%a;s=map(map(\_->' '))a main=mapM_ putStrLn$x$x$x$x["X"]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page