import Control.Monad

type View = ((Int, Int), (Int, Int))
type Spot = (Int, Int)

views :: (Int, Int) -> [View]
views (w, h) = do
  y <- [0..(h - 3)]
  x <- [0..(w - 3)]
  return ((x + 1, y + 1), (x + 3, y + 3))

countSpots :: [Spot] -> View -> Int
countSpots spots ((x0, y0), (x1, y1)) = length $ filter isIn spots
  where isIn (x, y) = x0 <= x && x <= x1 && y0 <= y && y <= y1

readLine :: String -> (Int, Int)
readLine s = (x, y)
  where [y, x] = read <$> words s

main :: IO ()
main = do
  [h, w, n] <- (fmap read . words) <$> getLine
  spots <- replicateM n $ readLine <$> getLine
  let counts = countSpots spots <$> views (w, h)
  mapM_ (display counts) [0..9]
  where display counts i = print $ length $ filter (==i) counts
