read-nums
sort #(list)
{
    dup2
    negate
    &
    =
    63
    *
    @3
    ^
}
sort #(list,block)
unlines