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