diff --git a/src/Main.hs b/src/Main.hs
index df2cbf1ee338a94e858034446fa72d2c13eab8aa..0ccea9acc5f2f3ee380e1b9ec5982e17fbbe0508 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -173,7 +173,9 @@ countRequests logs = go Map.empty logs where
 -- | print a top URLs report for user.
 -- list m is ordered by view count DESC.
 prettyPrintFrequentRequests :: Int -> [(RequestPair, Int)] -> IO ()
-prettyPrintFrequentRequests totalRequestCount m = mapM_ ppLine m where
+prettyPrintFrequentRequests totalRequestCount m = do
+  putStrLn "== most frequently accessed URLs =="
+  mapM_ ppLine m where
     ppLine :: (RequestPair, Int) -> IO ()
     ppLine ((verb, path), count) = do
       let percentage = (fromIntegral count :: Double) * 100.0 / (fromIntegral totalRequestCount :: Double)