let to_string = function
  | 1 -> "one"
  | 2 -> "two"
  | n -> string_of_int n