import Control.Monad

main = yf >>= print
		   
yf = fmap (takeWhile (/=0) . map read . lines) getContents >>= 
	 foldM (\chislo2 i -> let chislo2' = chislo2+i*100^500 in print chislo2' >> return chislo2') 0