let cmdf fmt = ksprintf (fun s -> printf "CMD: %s\n%!" s; match Sys.command s with | 0 -> () | other -> ksprintf failwith "non-zero-exit: %s -> %d" s other) fmt