input""n$
for i=1to 10k=asc(mid$(n$,i))-48
if i=1s$=f$(k,2)
s$=a$+left$(f$(k,0),2)+f$(asc(mid$(n$,i+1))-48,2)+"
"+a$+f$(k,1)+"
"+s$
a$=a$+"  "next
?s$
sub f$(u,v)return mid$("/\\ \\ \\ \\/ \\   \\   /\\  /  \\//\\  /\\  / \\ \\/\\   /  \\/\\  //  \\/\\ \\//\\   \\   /\\ \\/\\ \\//\\ \\/\\   ",9*u+3*v+1,3)end sub