(module mono_hash_pin_smoke
  (fn ord_to_int
    (type (fn-type (params (con prelude.Ordering)) (ret (con Int))))
    (params o)
    (body (match o
      (case (pat-ctor LT) -1)
      (case (pat-ctor EQ) 0)
      (case (pat-ctor GT) 1))))
  (fn main
    (type (fn-type (params) (ret (con Unit)) (effects IO)))
    (params)
    (body (seq (do io/print_bool (app eq 1 1)) (seq (do io/print_bool (app eq true true)) (seq (do io/print_bool (app eq "a" "a")) (seq (do io/print_int (app ord_to_int (app compare 1 2))) (seq (do io/print_int (app ord_to_int (app compare false true))) (do io/print_int (app ord_to_int (app compare "a" "b")))))))))))