12
range
m:
    save-a
    ( "<\xde\x1c@\xd3\xe5`B\xcd\x86B\xa3\xfb\xf1u\x90\xaf\xf7\x17k\xa3Ch\xf1\xac\xa0kI\xcb\x8a\xc7Q\xf5\xad\xae\x17\xfb\xee]W\xc2\xe5\xb4\x94\xdd\xba{" )
    256
    base #(list to num)
    25
    base #(num to list)
    lines
    get
    lowercase-alphabet
    select
    23
    digits
    ( "&a\x16j\xc0V5\xde\x1f\xc3\xe3!\x22\xa6\xa9\xce,\xdc?\x89G\x8br\xdd\xb7\xcf\xc0UI\xec\xec\x834\x15\x1dH\xfc\xb8o\xf2\xf0\x91UBO3M1\x00V2\x02\xa9g wI(\x02z\xedg\xd5\xbe\x96\x0c\x01\x88\xa2\x15\xd3\xad{\xa6\xbc\xef\x1e9\xa8M\x19k\xaa\xf43\x1b,!\x1ejVa6\x81\xde\xf5\xa1\xddk\xdb\xb3u\xf2&'\xdb\xc1\xf8\x12;\xfaw\x87r\xb0\xbe\x81\x99\xbfw_'gw\x95\xc9\xc3\xd3Q\xf87g\x13\xa4oDM\x08\x22\xbd\x1dcX\xa6\xda.c\xf7\xd7C\x98\xc6\x01\xb6Q\xa9\xdb\xb7&\xd7\xe4G\xc8\xafCM\x0f\x88\xcb\xd5\x93=\x18\x9aK\x17\xfc\\\xef\x85\xae;\x8a\xcf\xf9\xce]\x22wc&\x22\x82d\xad\x0ep\x83\xa6\xf7o\xa7\xda\xe8\xfc7\\R\xc5u%\xa4\x14\xfb\xb0" )
    256
    base #(list to num)
    38
    base #(num to list)
    ( "CSAFONTE,-Y " )
    show-line
    lowercase-alphabet
    catenate #(list+list)
    select
    "Y"
    split
    select
    left-uncons
    rrot
    @4
    tails
    push-a
    get
    counter
    2
    smallest
    range
    4
    catenate #(list+elem)
    @7
    select
    "."
    show-line
    show-line
}
init
"!"