12
range
m:
    save-a
    "\x0c"
    right-cons
    ( "\r\x0e" )
    catenate #(list+list)
    ( "\x1d\xadBAD\xbb9Y\x92T[\xda\x85\x87\x9a\x83X\x04\xef\xd1\x17\x8f\xc0\xe9\xd9\t\xec\xc0\xf1<\xd4\xf67\x8e\x9ay\x81\x90\xa5\x10\xe1\xef\x87x\x16'OC\x92\xd8\x7f3q\xdb\x98\xf4\x18Y\x8c\x0f_\xef\xdc\xff,\xd9\x86L$u\x03v\x7f\xf8\xf9/\xb5V\x00\x81\xedS\xd0\xe1u\t\x87\xec?a\x8a\xa7)'n\x84f\xbcse\xaa\xc2\x22\xe3\xd1O\x15LU< \x12\xb3\x98\xdd\xcaA\xd2\xe4v\xcd(X`\x85\x02{5=\xd4\xeb\xe3\x13\xfb#\x02\xa1X\xb91\x17\xdb`\xf9+\xa3\x96n\xeb\xdc\x95\xe4U\x1b\xd5:\x92\rC:\x95\\v\x0e\xed\x16\x1a$\xba\x032o\xd2 \xfc-7\x92\x85\xd5\x90\xb2q(\xf7\x8a_\xcd\xc59\x82!&\xc55\xa9\xf0\xb9/L\x8d\xe7\xa5\xe0&\xb8\x0e\xf3\x81\xd0\xd0\xa9\xe8ZxS~\xc46q\xa4\xc3\x97Z\x01\xe2\x80\x90\xed\x81\xea9g\xee\xf3z\xbb\xd2q\x97\xb18*uq[!\x1a*" )
    256
    base #(list to num)
    35
    base #(num to list)
    ( "CYAF, -O" )
    show-line
    lowercase-alphabet
    catenate #(list+list)
    select
    "Y"
    split
    select
    extract-array
    @2
    tails
    push-a
    get
        left-uncons
        95
        &
        left-cons
    m4
    ","
    show-line
    join
    "A"
    logical-or
    swap
    "."
    show-line
    show-line
}
init
"!"