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