running count

  by a;


  if first.a then count= 1;
  else count+1;