import Data.Maybe
import Data.List
import qualified Data.ByteString.Char8 as BS
import Data.Char


f :: Integer -> Integer
f n = sum . map (fromIntegral . subtract 48 . ord) . show $ n

g n
  | n < 10 = n
  | otherwise = g (f n)


main = do
  n <- readLn :: IO Int
  p <- foldl1 (*) . map (fst . fromJust . BS.readInteger) . BS.words <$> BS.getLine :: IO Integer

  print $ g p