let h = Array.init 3 (fun i -> Scanf.scanf " %d" (fun h -> h, char_of_int (65 + i))) in let () = Array.sort compare h in for i = 2 downto 0 do Printf.printf "%c\n" (snd h.(i)) done