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