for(;;print(a,b,c))for each(b in[a]=readline(c=0))c+=b==a