[Código-Haskell] Limpia Archivo - JaAViEr

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)

T&e4ste3a,n.do!

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