(module mir2_callee_kinds
  (fn bump (type (fn-type (params (own (con Int))) (ret (own (con Int))))) (params n)
    (body (app + n 1)))
  (fn main (type (fn-type (params) (ret (own (con Unit))) (effects IO))) (params)
    (body (let r (app bump 41)
            (do io/print_str (app int_to_str r))))))