Scanf.scanf "%s" (fun s ->
    print_endline @@ String.map (fun c ->
        if c >= 'a' && c <= 'z' then Char.uppercase c else
        if c >= 'A' && c <= 'Z' then Char.lowercase c else c) s
)