module Main where
import Data.Bool
import Control.Applicative
import Data.Ord
import Control.Monad.State
import qualified Control.Monad                 as CM
import qualified Control.Monad.ST              as ST
import qualified Data.Array             as A
import qualified Data.Bits                     as Bits
import qualified Data.ByteString.Char8         as BS
import qualified Data.Char as Char
import qualified Data.Complex                  as Comp
import qualified Data.Foldable                 as Foldable
import qualified Data.Function                 as Func
import qualified Data.IORef                    as IO
import qualified Data.List                     as L
import qualified Data.Map.Strict               as Map
import qualified Data.Maybe                    as May
import qualified Data.Proxy                    as Proxy
import qualified Data.Set                      as Set
import qualified Data.Vector                   as V
import qualified Data.Vector.Mutable           as VM


mod' = 1000000007

gs :: IO String
gs=getLine

gn=map (read . BS.unpack) . BS.words <$> BS.getLine ::IO[Int]
----------------------------------------------------

main=do
    n<-readLn
    a<-CM.replicateM n $ do
        [s,t]<-map (read . BS.unpack) . BS.words <$> BS.getLine ::IO[Int]
        let k = take t $iterate(+s)s
        return k

    let k =  map (show . (\x->last x + length x)) a
    putStr$unlines k