--
-- tail.hs
--
-- A simple tail command in Haskell.
--

module Main where

import System
import IO

defaultLines = 10 :: Int

main :: IO ()
main = do args <- getArgs
          case args of
            []-> do cs <- getContents
                    doTail defaultLines cs
            _ -> mapM_ (\a -> do cs <- readFile a
                                 doTail defaultLines cs) args

doTail :: Int -> String -> IO ()
doTail n cs = putStr $ unlines $ reverse $ take n $ reverse $ lines cs