1 2 3
functor F(M : sig con fs :: {Type} end) : sig functor G(M : sig val x : $(map sql_injectable_prim M.fs) end) : sig end end