256
negate
256
inc
crange
reverse
    {
        odd
        ( " #" )
        get
        @0
        @2
        double
        inc
        *
        @3
        +
        half
    }
    64
    times #(eval)
    pop-a
    ( "|\n" )
m6