p:printf;c:concat;s:smake;while 0#(a:?read(?-,?-,0))do if a<2then p(?t,"\xe2\x97\x87 ")else(p(?t,c("/",s(a*2-2,"-"),"\\ ")),sum(p(?t,c(s(j-1," "),"\\",s((a-j)*2," "),"/ ")),j,2,a));
Note that non-ascii characters in the above source code will be escaped (such as \x9f).