NTEGER N,M
INTEGER,ALLOCATABLE,DIMENSION(:)::ANSWER
INTEGER A,B
READ*,N,M
ALLOCATE(ANSWER(N))
ANSWER=0
DO I=1,M
  READ*,A,B
  ANSWER(A)=ANSWER(A)+1
  ANSWER(B)=ANSWER(B)+1
END DO
PRINT"(I0)",ANSWER
END