let greet = function
  | `Server -> "Hello..."
  | `Client -> "...world!"