let string_to_int (c : string) : int =
  if String.length c = 1 then
    Char.code (String.get c 0)
  else
    raise IllegalChar