import Control.Monad

main :: IO ()
main = do
  [n,m] <- rListM :: IO [Int]
  dat <- concat <$> replicateM m rListM :: IO [Int]
  putStrLn . unlines $ fmap (show . countc dat) [1..n]

rListM :: Read a => IO [a]
rListM = fmap read . words <$> getLine

countc :: Eq t => [t] -> t -> Int
countc ls con = length $ filter (con == ) ls