head
3
%
inc
double
pop-a
{
    push-a
    7
    <
    f:
        new-line
        counter
        save-b
        2
        48
        rjust
        ":"
    }
    space
    push-a
    inc
    2
    48
    rjust
    push-a
    7
    +
    30
    push-b
    push-b
    7
    >
    ^
    |
    push-b
    2
    =
    double
    -
    %
    pop-a
}
52
times #(eval)
wrap-stack
tail