3
2
digit-left
range1
m:
    dup
    3
    divides
    over
    digits
    3
    member
    logical-or
        ( "aho" )
        nip
    f2
    show-line