l(_:s)=1+l s
l _=0
main@m=getLine>>=(\(x:_:s)->putStrLn$drop 1$take 9$show$(l$filter(==x)s)/l s+10+5e-7)>>m