{-# LANGUAGE TupleSections #-}
import Control.Monad
import Data.List
import Data.Map.Strict (Map)
import qualified Data.Map.Strict as Map
import Data.IntMap.Strict (IntMap)
import qualified Data.IntMap.Strict as IntMap

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

putSpot :: CountMap -> Spot -> CountMap
putSpot counts spot = foldl' inc counts $ viewsFor spot
  where viewsFor (x, y) = do
          j <- [(max 0 (y - 2)) .. y]
          i <- [(max 0 (x - 2)) .. x]
          return (i, j)
        inc counts spot = Map.adjust (+1) spot counts

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

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 init = Map.fromList $ (,0) <$> views (w, h)
      counts = foldl' putSpot init spots
      res = Map.foldl' (\a b -> IntMap.insertWith (+) b 1 a) IntMap.empty counts
      display i = print $ IntMap.findWithDefault 0 i res
  mapM_ display [0..9]
