p:printf;c:concat;s:smake;while 0#(a:?read(?-,?-,0))do if a<2then p(?t,"◇
")else(p(?t,c("/",s(a*2-2,"-"),"\\
")),sum(p(?t,c(s(j-1," "),"\\",s((a-j)*2," "),"/
")),j,2,a));