main = do
  nt <- getLine
  s  <- getLine
  let [n,t] = map read $ words nt :: [Integer]
      o     = ans n t s
  putStrLn o
main = do
  nt <- getLine
  s  <- getLine
  let [n,t] = map read $ words nt :: [Integer]
      o     = ans n t s
  putStrLn o
main = do
  nt <- getLine
  s  <- getLine
  let [n,t] = map read $ words nt :: [Integer]
      o     = ans n t s
  putStrLn o