let cut  ?(opt="") (arg:filexpr) = 
   make ~at:Treat.identity ~ot:String.Text.of_string "cut" ~opt ~args:(Some arg) ()