import Control.Monad
import Data.Fixed
import Data.List

main = do
  n <- readLn
  ss <- replicateM n getLine
  let
    as = map (read :: String -> Pico) ss
    sum = foldl' (+) 0 as
   in putStrLn (reverse . drop 2 . reverse . show $ sum)