lrstrip.hs lrstrip :: String -> String lrstrip = rstrip . lstrip tail2.hs main = do cs <- getContents putStr $ lastNLines 10 cs lastNLines :: Int -> String -> String lastNLines n = unlines . reverse . take n . reverse . lines fgrep.hs fgre…