m@main=do x<-getLine;putStrLn$reverse%divMod(sum[read$y++g z|(y,_:z)<-span(>'.')`map`words x])(10^99);m
r%(x,y)=show x++'.':r(snd$span(<'1')$g$r$show y)
g=take 99.(++cycle"0")