( "\x104\xc8\x14\n\xcc\xdfd@\x89cL^c\r\xea\xec\x11\xc0\x17\x1c}\xefz0\x80\x0fdO\xcc\xc3\x94f\xf9n5\x81/\xe8S\xf8\x8d\xf4\xda=q}\xaf\xdd\x0c\xf1\xdb\x86t9\x97ZT\x1e\xd9y\xc6\xf3Y7\xad\x08\xba\x8b\xa0X\x98\xe3L\xbb\xa7$\xbc3\x8a\x84x\x89\x1b\xa8t\x8b`\xa68\x14\xf3\x87\xdah\rx\xe4'B\xeahb\xdc" )
256
base #(list to num)
binary #(num to list)
{
    swap
    4
    smallest
    double
    +
    2090215137
    digits
    get
}
scan
w( "tan" "shi" " " "kanoko" )
right-uncons
tails
catenate #(list+list)
select