line-mode
3
swap
    inc
b1
    dec
b1
0
dup2
    double
    1
    cmp
    +
b4
6
make-array
64
times #(list)
select
    negate
b1
each
is-prime #(num)