let id ?(opt="") ?(arg="") () = 
  make ~at:Treat.identity ~ot:String.chop "id" ~opt ~args:(Some arg) ()