: a 770 3 do 0 i 2 do j i i * mod 0= 9 * - j i mod 0= - loop 6 = if i 0 .r cr
then loop ; a