( "\x8c\xaa\x89\x87\x84\xa2\x81" )
m:
    binary #(num to list)
        not
        double
    m2
    map-show
    2
    chunks
    right-uncons
    itemize
        "/"
        join
    t2
    show-line