: p 1189 841 11. do ." A"i . 2dup i 9 > 5 + .r ." mm x"5 .r swap 2/ ." mm"cr loop ; p