let rec log = function | `Shell_command str -> Log.(s "Sh:" % brakets (s str)) | `Exec sl -> Log.(s "Exec:" % OCaml.list (sf "%S") sl) | `And l -> Log.(separate (s " && ") (List.map ~f:log l))