i=fromInteger;r=repeat;c=concat;t=take f 0="" f x=c(t(i x`mod`4)$r" ")++c(t(i x`div`4`mod`4+1)$r"[]")++(t(i x`div`16`mod`2+1)"\n\n")++f(x`div`32) main=putStrLn$f 281373081787177129814574000083183682230413181312
Note that non-ascii characters in the above source code will be escaped (such as \x9f).