let run_monad name f =     Lwt_main.run (f ())     |> function     | `Ok () -> ()     | `Error (`Database e) ->       ksprintf fail "%S ends with error: %s" name         (Trakeva.Error.to_string e)