(module cmp_max_smoke
  (fn cmp_max
    (type (forall (vars a) (constraints (constraint prelude.Ord a)) (fn-type (params a a) (ret a))))
    (params x y)
    (body (match (app compare x y)
      (case (pat-ctor LT) y)
      (case _ x))))
  (fn main
    (type (fn-type (params) (ret (con Unit)) (effects IO)))
    (params)
    (body (do io/print_int (app cmp_max 3 7)))))