m@main=do a:_:b<-getLine;putStrLn$take 8$tail$show$10+5e-7+sum[1|x<-b,x==a]/sum[1|_<-b];m