Underc0de

limpia :: String -> String
limpia comprueba= do
  [d | d <- comprueba, d `elem` ['a'..'z'] || d `elem` ['A'..'Z']]
main = do
  putStrLn("File:")
  palabra <- getLine
  c <- readFile palabra
  let sale=limpia c
  putStrLn("Salida Limpia:\n"++sale)
Al fichero que escribamos, lo abrirá y quitara todo tipo de caracter
que no sea una letra.
Ejemplo:
log.txt:

T&e4ste3a,n.do!

jaavier@dhcppc4:~/haskell$ runhaskell cleanfile
File:
log.txt
Salida Limpia:
Testeando

Saludos.