input""a
f(a)
sub f(m,s$)local i
if m for i=1to 3?s$,i:f(m-1,"   "+s$+str$(i)+".")next
end sub