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