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