import Control.Monad
import Data.List

main = do
    [n, m] <- getPairs 
    ab_s <- replicateM m getPairs
    let points = mconcat ab_s
    mapM_ print $ map (\z -> length $ filter (== z) points) [1 .. n]

getPairs :: IO [Int]
getPairs = map read . words <$> getLine