Scanf.scanf "%s" (fun a ->
    print_endline @@
        match a with
        | "A" | "C" | "D" | "F" | "G" -> a ^ "#"
        | "E" -> "F"
        | _ -> "C"
)