let
pct_string i = string_of_int i ^
"%"