w( "\xdas\xeb\xf9M\xd3S\xad\xa8\xe3 m\xbd\xe7\xe5$\x89\\,/" "*\x82\xda\xdcP\x90\x1f\xef\x8c@" "\xa3\x82e\x02\x99}\xd4\xea\xf4\xc9\xaa\xfa\x0eQ\nq;X\xbd" )
nip
m:
    256
    base #(list to num)
    31
    base #(num to list)
    ( ", I;!'" )
    lowercase-alphabet
    catenate #(list+list)
    select
}
dup
sort #(list)
    init
    show-line
t2
over
tuck