let x, n, m = Scanf.scanf "%d %d %d" @@ fun a b c -> a, b, c let arr = Array.to_list (Array.init n (fun _ -> Scanf.scanf "%d\n" (fun x -> x))) let brr = Array.to_list (Array.init m (fun _ -> Scanf.scanf "%d\n" (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 "MrValu" else "-1" let () = print_endline ans