1 2 3 4 5 6
functor Make (M : sig con fs :: {Unit} val names : $(mapUT string fs) end) : sig val main : unit -> transaction page end