module Timed_function:sig..end
   This module is here to add timeouts to any functions.
exception Timeout
   This module is here to add timeouts to any functions.
val run : timeout:float ->
       f:('a -> 'b) ->
       sexp_of:('b -> Core.Std.Sexp.t) ->
       of_sexp:(Core.Std.Sexp.t -> 'b) -> 'a -> 'b