let cut args text = textfilter ~at:Treat.identity "cut" ~args:(Some(args)) text