256
thousand
is-prime #(num)
pop
words
m:
    dup
    read-nums
    unwords
    =
    @2
    m:
        save-a
        abs
        4
        primes #(4: factor)
            tuck-a
            /
        m2
        sum
    }
    ( "Wait, that's not a number..." )
    left-cons
    get
    show-line