(;module:
  lux)

(type: #export #rec Pattern
  (#Ref Nat)
  #Unit
  (#Bool Bool)
  (#Nat Nat)
  (#Int Int)
  (#Deg Deg)
  (#Real Real)
  (#Char Char)
  (#Text Text)
  (#Tuple (List Pattern))
  (#Variant [Nat Nat] Pattern))