fun readInt () = valOf (TextIO.scanStream (Int.scan StringCvt.DEC) TextIO.stdIn) val () = let val x = readInt () val n = readInt () val m = readInt () val a_s = List.tabulate (n, fn _ => readInt ()) val b_s = List.tabulate (m, fn _ => readInt ()) val isExistMrMax = List.exists (fn a => a = x) a_s val isExistMaxValu = List.exists (fn b => b = x) b_s val ans = if isExistMrMax andalso isExistMaxValu then "MrMaxValu" else if isExistMrMax then "MrMax" else if isExistMaxValu then "MaxValu" else "-1" in print (ans ^ "\n") end