(module ordering_match
  (fn main
    (doc "Iter 23.1 fixture: pattern-match on prelude Ordering ctor without explicit prelude import.")
    (type (fn-type (params) (ret (con Unit)) (effects IO)))
    (params)
    (body (do io/print_int (match (term-ctor prelude.Ordering LT)
      (case (pat-ctor LT) 1)
      (case (pat-ctor EQ) 2)
      (case (pat-ctor GT) 3))))))