let data = Digest.to_hex (Digest.string data) in
let dir = Filename.temp_dir_name // sprintf "goaljobstmp%s" data in
mkdir dir 0o700;
let data = Digest.to_hex (Digest.string data) in
let dir = Filename.temp_dir_name // sprintf "goaljobstmp%s" data in
mkdir dir 0o700;