line-mode
left-uncons
pop-a
binary #(list to num)
2
^
3
&
pop-b
7
range
m:
    push-a
    push-b
    w( "\x8c9 G" "~5I" "" "~5K" "\x8c9 F" )
    get
        100
        +
    m2
    catenate #(elem+list)
    push-b
    rot
    2
    =
    -
    push-a
    3
    divides
    +
    pop-b
    push-a
    dec
    7
    %
    uppercase-alphabet
    get
    pop-a
}
unwords