sig
  val lower_case : Parsetree.expression -> Parsetree.expression
  val genr_rule : Parsetree.pattern -> Parsetree.expression -> Code.clause
end