let pct_string i = string_of_int i ^ "%"