let of_string s = try Some (int_of_string s) with _ -> None