let current_umask = 
 let old = Unix.umask 0 in 
 let   _ = Unix.umask old in 
 old