maximY :: (Ord a, Ord b) => [(a,b)] -> b
maximY l = fst $ maximum $ map swap l where
        swap (x, y) = (y, x)

//e Ord pentru ca Int normal nu se poate compara, gen nu poti aplica maximu pe el