f(x:_:y)='0':(tail$take 8$show$sum[1|z<-y,z==x]/sum(y>>[1])+5e-7+1)++"\n"
main=interact$(>>=f).lines