0 # zarážka
2 k # počáteční indexy
(d)(
    d 2c s 2l # je počet prvků menší než 2?
    1 x # značka, že se má provést else větev

    ( # then větev: nejvýše 1 prvek, netřeba třídit
        p # else větev nebude
        pp # begin, end
        0 # else větev nebude
    )i

    ( # else větev: rozdělíme na 2 části
        d # swap index
        d # iterační proměnná
        (d 4c g)( # while i < end
            d 2a c # arr[i]
            3c 3a c # arr[begin]
            l (
                x 1s x # swap += 1
                d 2a c # arr[i]
                2c 3a c # arr[swap]
                2c 3a xo # arr[i] = arr[swap]
                2c 2a xo # arr[swap] = arr[i]
            )i
            1s # i += 1
        )w
        p # iterační proměnná

        d 1a c # arr[swap]
        2c 2a c # arr[begin]
        2c 2a xo # arr[swap] = arr[begin]
        2c 1a xo # arr[begin] = arr[swap]

        # na zásobníku je: end begin swap
        2c x 2xo # swap begin end
        2a 2c 1a # swap begin end+2 swap+1
    )i

)w
p # zarážka