let command (_,fmt) cmd args =
    begin
      current := Some (cmd,args) ;
      pp_command fmt cmd args ;
    end