(;module:
  lux
  (lux (data [product]))
  (.. ["lp" pattern]))

(type: #export #rec Analysis
  #Unit
  (#Bool Bool)
  (#Nat Nat)
  (#Int Int)
  (#Deg Deg)
  (#Real Real)
  (#Char Char)
  (#Text Text)
  (#Variant Nat Bool Analysis)
  (#Tuple (List Analysis))
  (#Case (List [lp;Pattern Analysis]))
  (#Function Scope Analysis)
  (#Apply Analysis Analysis)
  (#Procedure Ident (List Analysis))
  (#Relative Ref)
  (#Absolute Ident))