biggestTuple (x:xs) a 
    | fst x > fst a = biggestTuple xs x 
    | otherwise = biggestTuple xs a
biggestTuple (x:xs) a 
    | fst x > fst a = biggestTuple xs x 
    | otherwise = biggestTuple xs a
biggestTuple (x:xs) a 
    | fst x > fst a = biggestTuple xs x 
    | otherwise = biggestTuple xs a