#!perl -l
print$"x--$^F,map$^F&$_?$"x2:"/\\",0..$y++while$^F<<=pop