words
m:
    dup
    read-nums
    sum
    save-a
    show
    =
    ( "Wait, that's not a number..." )
    push-a
    abs
    dup
    is-prime #(num)
    pop
    4
    primes #(4: factor)
        tuck-a
        /
    m2
    sum
    pair
    get
    show-line