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]]