main=do n<-readLn;mapM putStrLn[([1..z]>>" ")++map(drop(3*abs x)(cycle"/ \\__")!!)[z..6*n-3-z]|x<-[1-2*n..2*n-1],z<-[max(3*abs x-3*n-signum(min 0x))0]]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page