f(m,s):=if(m>0)then sum((printf(?t,"~a~a
",s,i),f(m-1,concat("   ",s,i,"."))),i,1,3);f(?read(),"");