let tgz_create ?(opt="") (fname:filename) (files:filexpr) = let at (t,e) = ((String.quote t)^" "^e) in make ~at:(Some at) ~ot:ignore ("tar "^opt^" -czf $@") ~script:true ~args:(Some (fname,files)) ()