let () =
  let arr = Array.to_list (Array.init 6 @@ fun _ -> Scanf.scanf "%d " @@ fun d -> d) in
  let lst = List.fast_sort compare arr in
  let lst = List.tl (List.rev (List.tl lst)) in
  Printf.printf "%.2f\n" ((float_of_int (List.fold_left (+) 0 lst)) /. 4.)