(module show_no_instance
  (fn main
    (type (fn-type (params) (ret (con Unit)) (effects IO)))
    (params)
    (body (let f (lam (params (typed x (con Int))) (ret (con Int)) (body x)) (app print f)))))