adamc@418: functor Make (M : sig
adamc@418:                   con fs :: {Unit}
adamc@632:                   val fl : folder fs
adamc@643:                   val names : $(mapU string fs)
adamc@418:               end) : sig
adamc@418:     val main : unit -> transaction page
adamc@418: end