1
100
range1
m:
    save-a
    0
    primes #(0: n_primes)
    enumerate
        dump
        nip-b
        tuck-a
        divides
            w( "DFBMPQ" "oiuea" )
                64
                times #(list)
                push-b
                get
            m4
            "z"
            dup
        f5
    m6
    new-line