main::IO()
main = do cs <- getContents
putStr $ lastNLines 10 cs
lastNLines::Int -> String -> String
lastNLines n cs = unlines $ taleLast n $ lines cs
--takeLastの関数の引数の型、返り値の型がわかりません
takeLast n ss = reverse $ take n $ reverse ss