z=zip[replicate x ' '|x<-[0..]] s l=[x++b++b++x|(b,x)<-z l]++l main=do x<-readLn;mapM putStrLn$reverse[b++x|(b,x)<-z$iterate s["/__\\","/\\"]!!(x-1)]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page