: a 2000. do i 9. do 0 4. do swap 10 /mod -rot dup * + loop + loop 1 = if i 0 .r cr then loop ; a