line-mode
counter
16
^
6
<
f:
    "#"
    6
    @2
    -
    double
    dec
    6
    base #(num to list)
    compress
    120
    dup
    center
        smallest
    z1