let append ?(perm=0o640) (fname:filename) (x:content) = let fd = (Unix.openfile fname [Unix.O_CREAT; Unix.O_WRONLY; Unix.O_APPEND] perm) in let n = String.length x in ignore (Unix.write fd x 0 n); (Unix.close fd)