module Aula31 where

lista = [1..10]
f = (^2)

lista1 = f <$> lista
lista2 = lista >>= (return . f)
-- lista1 == lista2 (lei de Monad)

cumprimenta = do
  putStrLn "Qual seu nome?"
  putStr "> "
  nome <- getLine
  putStrLn $ "Olá, " ++ nome ++ "!"