(import "core/common")

(let state (atom! 10))

(let do-loop! (\![i n]
    (match true
        (lt? i n) (do (atom-update! inc state)
                      (do-loop! (inc i) n))
        otherwise unit)))

(do-loop! 0 5)

(atom-get! state)
; => 15