let find (arg:arg) = 
  make ~at:Treat.identity ~ot:String.Text.of_string "find" ~args:(Some arg) ()