import System.IO  
main = do  
    contents <- readFile "input.txt"  
    putStrLn $ "The file has " ++ show (length (lines contents)) ++ " lines!"