ual o resultado das expressões a seguir? Justifique.
> snd (fst ((True, 4), "Bom"))
 1° Passo: 1ª Lista é ((True, 4), "Bom")) que retorna (True, 4)
 2° Passo: 2° Elemento da Lista (True, 4) é 4
Hugs> snd(fst((True, 4), "Bom"))
4
 
> fst ((True, 'a'), 7)
Hugs> fst ((True, 'a'), 7)
(True,'a')

>snd (snd ((True, 4), (False, 7)))
Hugs> snd (snd ((True, 4), (False, 7)))
7
-}



{-
3. Implemente uma função que receba o primeiro e o último nome de alguém e retorne suas iniciais em uma tupla. Por exemplo: 
    > iniciais "Sara" "Luzia" 
    ('S','L')
-}
e3 :: String -> String -> (Char,Char)
e3 x1 x2 = (head(x1),head(x2))

{-
4. Faça uma 
e3 :: String -> String -> (Char,Char)
e3 x1 x2 = (head(x1),head(x2))
e3 x1 x2 = (head(x1),head(x2))