sub f(s$,i,x)for x=1to 3*!!i?s$,x
f("   "+s$+str$(x)+".",i-1)next
end sub
input""x
f("",x)