BEGIN WHILE WHILE REPEAT ELSE THEN

[drom]

Looks like one of the cases failing:

T{ : GI5 BEGIN DUP 2 > WHILE DUP 5 < WHILE DUP 1+ REPEAT 123 ELSE 345 THEN ; -> }T
T{ 1 GI5 -> 1 345 }T
T{ 2 GI5 -> 2 345 }T
T{ 3 GI5 -> 3 4 5 123 }T
T{ 4 GI5 -> 4 5 123 }T
T{ 5 GI5 -> 5 123 }T

Here is the failure:

Error: in line: 684 T{ 3 GI5 -> 3 4 5 123 }T  expected [ 3, 4, 291 ] to deeply equal [ 3, 4, 5, 291 ].

Decompiled code:

gi5: function () {
    L5: {
        L2:
            do {
                this[1]();
                this.dpush(2);
                this[45]();
                L3: {
                    if (!this.dpop())
                        break L2;
                    this[1]();
                    this.dpush(5);
                    this[46]();
                    L4: {
                        if (!this.dpop())
                            break L3;
                        this[1]();
                        this[27]();
                    }
                }
                this.dpush(123);
                break L5;
            } while (true);
        this.dpush(345);
    }
}