Divide the rectangle by notogawa

main=mapM putStrLn[[[a]|x<-p,[a,u,v,w,h]<-words"a@@SS bR@bP cROZW dYObX e@ROa fNRSW gNVYa hXVZX iXWba",u<x,x<w,v<y,y<h]>>=(' ':)|y<-p]
p=['A'..'a']

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page