let p,l=print_string,1 lsl read_int();;for i=0to l-1do
for j=i-l+1to i do j<0&()=p" "||i lor j=i&()=p[|"/\\";"_\\";"/_"|].(i mod 2*2-j mod 2)||()=p"  "done;p"
"done