let run_shell_command ?timeout ?with_shell t cmd = get_shell_command_output ?timeout ?with_shell t cmd >>= fun (_, _) -> return ()