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