let set_file_name s x = { (x) with file_name = s; }