read-nums
( "@\x02\x04H\x8d\x16\xabm" )
256
base #(list to num)
binary #(num to list)
3
chunks
    unwords
    show-line
m2
3
chunks
select
show-lines