Module RifRun

type vars = (string * string) list
type sl = Data.subst list
val make : vars -> vars -> (string -> unit) * (sl -> sl)