let
string_of_characters (c1, c2) =
(string_of_int c1)^
"-"
^(string_of_int c2)