: a 1 do dup 1 do i j * 3 .r loop cr loop ; key 48 - 10 * 6 + dup base ! dup a