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
Note that non-ascii characters in the above source code will be escaped (such as \x9f).