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