strlen :: String -> Int
main = do
putStrLn("String:")
linea <- getLine
let valor=strlen linea
putStrLn("El String "++linea++" tiene "++show(valor)++" Caracteres")
strlen inputx=do
let value=sum[1|_ <- inputx]
value
main = do
putStrLn("String:")
linea <- getLine
let valor=sum[1|_<-linea]
putStrLn("El String "++linea++" tiene "++show(valor)++" Caracteres")