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