{-# LANGUAGE ExtendedDefaultRules, OverloadedStrings #-} import Prelude import qualified Data.ByteString.Lazy.Char8 as B import qualified Data.List as L takeLast n = reverse . take n . reverse