( "]<9\x18O.^D#S9#" )
m:
    digits
    push-a
    read-num
    odd
    get
    21
    +
    bnot
    show-line
}
swap
lines
zip