functor
(
E
:
Env_intf
.
S
)
->
sig
val
setup : unit
->
unit
end