sig   val cstr : Facile.Var.Fd.t array -> Facile.Var.Fd.t -> Facile.Cstr.t   val sum : Facile.Var.Fd.t array -> Facile.Var.Fd.t end