sição de funções…
-- (.) f g x = f (g x)
-- (.) :: (b -> c) -> (a -> b) -> a -> c


-- Compondo as definições que criamos até agora…
-- principal :: [(a, Double, Double)] -> Double

principal = mediafr . (map snd) . aprovadosf . mediasPLC


-- Testando

teste = principal turma


-- Avaliação lazy, só avalia o
principal = mediafr . (map snd) . aprovadosf . mediasPLC
principal = mediafr . (map snd) . aprovadosf . mediasPLC