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)) ()