let tgz_extract ?(opt="") (fname:filename) (rep:foldername) = let at (t,r) = ((String.quote t)^" "^(String.quote r)) in make ~at:(Some at) ~ot:ignore ("tar "^opt^" -C $2 -xzf $1") ~script:true ~args:(Some (fname,rep)) ()