val about_make_pat : string -> string option -> (string list * (string * string) list * L9_plumbing.env -> unit) Trx.pat_code

val p : ((string list * (string * string) list * L9_plumbing.env -> unit) Trx.pat_code) list -> (string list * (string * string) list * L9_plumbing.env -> unit) Trx.code