plp

import System.IO

main = fromFile

fromFile = do
 hSetBuffering stdout NoBuffering
 putStr "Type the name of a file "
 f <- getLine
 handle <- openFile f ReadMode
 content <- hGetContents handle
 putStrLn "======================="
 putStrLn content
 hClose handle
 s <- getChar
 putStrLn ""

myWrite = do
 putStr "Enter the name of a file"
 f<- getLine
 putStrLn "Type any text"
 t <- getLine
 writeFile f t

fileToFile = do
 putStr "Type the name of a file: "
 f <- getLine
 putStrLn "Type any text"
 t <- getLine
 writeFile f t

fileToFile1 f1 f2 = do
 content <- readFile f1
 let t = unlines . reverse . lines $ content
 writeFile f2 t--(unlines . reverse . lines $ content)