Do while

do-while.dwl

%dw 2.0
output application/json

fun while<T>(a, b: (T) -> Boolean) = do {
    var r = a()
    fun innerWhile(x) = do {
        var r = a(x)
        ---
        b(r) match {
            case true -> [r ~ innerWhile(r)]
            case false -> [r]
        }
    }
    ---
    [r ~ innerWhile(r)]
}

---
do {
    (x = 0) -> x + 1
} while ($ < 10)