let x, n, m = Scanf.scanf "%d %d %d\n" (fun a b c -> a, b, c) let arr = Array.to_list (Array.init n (fun _ -> Scanf.scanf "%d " (fun x -> x))) let brr = Array.to_list (Array.init m (fun _ -> Scanf.scanf "%d " (fun x -> x))) let ans = if List.mem x arr && List.mem x brr then "MrMaxValu" else if List.mem x arr then "MrMax" else if List.mem x brr then "MaxValu" else "-1" let () = print_endline ans