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")
Note that non-ascii characters in the above source code will be escaped (such as \x9f).