m:
    counter
    dec
    f:
        2dup
        2dup
        crange
        tail
        rrot
        >
            reverse
        f1
        swap