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