x:841;y:1189;for i:0thru 10 do(printf(?t,"A~2a~5dmm x~5dmm
",i,x,y),t:x,x:floor(y/2),y:t);