main=interact$f.read f n=unlines[[c|x<-[0,3..2*n+1+min 0y],let a?b=mod a(2*n)<3&&b>0;c|x?y='|'|(x-y)?x='\\'|(x+y)?1='/'|(-y)?1='_'|0<1=' ']|y<-[1-n,4-n..2*n]]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page