let trans char =
  let up = Char.uppercase char in
  if char > up then up
  else Char.lowercase char

let () =
  let str = read_line () in
  for i = 0 to String.length str - 1 do
    str.[i] <- trans str.[i]
  done;
  print_endline str