module Funcoes where



import Char



-- fun??es adcinadas por Marcio Alves

ask :: String -> IO String

ask question = do putStr question

                  getLine

                  

askC :: String -> IO Char

askC question = do putStr question

                   getChar

                   

toMaiuscula :: String -> String

toMaiuscula [] = []

toMaiuscula (x:xs) = (toUpper x) : toMaiuscula xs