let pp_current fmt =
    match !current with
      | None -> ()
      | Some (cmd,args) -> pp_command fmt cmd args