(module loop_forever
  (fn spin
    (type (fn-type (params (own (con Int))) (ret (own (con Int)))))
    (params n)
    (body
      (loop (i (con Int) 0)
        (recur (app + i 1))))))