(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 (own (con Unit))) (effects IO)))
    (params)
    (body (seq (app print (match (term-ctor prelude.Ordering LT)
      (case (pat-ctor LT) 1)
      (case (pat-ctor EQ) 2)
      (case (pat-ctor GT) 3))) (do io/print_str "\n")))))
