List.init 3 (fun _ -> stdin.ReadLine() |> int)
|> List.zip ['A' .. 'C']
|> List.sortByDescending (fun (name,height) -> height)
|> List.iter (fst>>printfn"%c")