let rc_dir = let d = Filename.concat home ".cameleon2" in let _ = try (* A VOIR avec le CDK Unix2.safe_mkdir *) Unix.mkdir d 0o700 with _ -> () in d