fizzbuzz
lines
save-a
m:
    read-nums
    map-show
    counter
    4
    primes #(4: factor)
        dec
        push-a
        get
            is-alpha
        f1
    m5
    new-line