main=mapM putStrLn[([1..mod(fromEnum c)9]>>" ")++do['-','6'..c];"[]"|c<-"-H-$-H/$-H1$-H3$/H/$/H1$?C$6A/$6A1$6A3$68:"]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page