( "\x18\x02\x01\x01\x01\x02\x18" )
nip
m:
    push-a
    read-num
    copies
    16
    base #(list to num)
    binary #(num to list)
    ( " #" )
    select
    reverse
    show-line