main=mapM putStrLn$["#"]%1%2%4%8%16;x%n=[take n(t++cycle" ")++t|t<-x]++x