let succeed s = match Sys.command s with | 0 -> () | other -> failwithf "Command %S did not succeed: %d" s other