1
100
range1
m:
    w( "DFBMPQ" "oiuea" "z" "z" )
        64
        times #(list)
    m2
    transpose
    100
    1
    primes
    rot
    64
    copies
        %
        not
    z2
    compress
    new-line