(module loop_counter

  (fn main
    (doc "Iter it.1 — sum 1..10 via an accumulator loop. Iter it.2: loop-bearing ⇒ !Diverge added (D2). Expected stdout: 55.")
    (type (fn-type (params) (ret (con Unit)) (effects IO Diverge)))
    (params)
    (body
      (app print
        (loop ((var acc (con Int) 0) (var i (con Int) 1))
          (if (app > i 10)
            acc
            (recur (app + acc i) (app + i 1))))))))