.ta 4mR 4mR 4mR 4mR 4mR 4mR 4mR 4mR 4mR 4mR 4mR 4mR
.nr p 0
.nr x 0 1
.nr y 1 1
.while (\n[y] <= 12) \{\
.if (\n[y]<10) \{\
\~
.\}
\n[y]\0|
.nr x 0 1
.while (\n[x] < 12) \{\
.nr x +1
.nr p \n[x]*\n[y]
\t
.if (\n[y]<=\n[x]) \n[p]
.\}
.br
.nr y +1
.\}