customPrint :: [String] -> IO()
customPrint xs = printf "%7d: %s\n" (length xs) trimmed
                    where
                        s = intercalate " " ((\x -> "\"" ++ x ++ "\"") <$> xs)
                        trimmed = if length s > 127 then (take 127 s) ++ "..." else s