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