(*
ocamlfind ocamlopt -package batteries -linkpkg main.ml -o a.out
*)
open Batteries

let ch = Scanf.sscanf (read_line ()) "%c" ( fun ch -> ch)

let () =
        (
                if Char.is_lowercase ch then
                        'a'
                else
                        'A'
        ) |> Printf.printf "%c\n"
