functor (Bfx : Biokepi.EDSL.Semantics->
  sig val run : unit -> unit Bfx.observation end