s i=[2..i]>>" ";main=mapM putStrLn[s(2^(6-n)+1)>>t++'/':s i++'\\':t|n<-[6,5..0],i<-[1,3..2^n],t<-[s$2^n-div i 2]]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page