( "\x8c\xaa\x89\x87\x84\xa2\x81" )
m:
    binary #(num to list)
        not
        double
        show
    m3
    2
    chunks
        "/"
    b1
    each
    pop
    nip
    new-line