main = getLine >> getContents >>= print . (`mod` 1000000007) . solve . map (map read . words) . lines

solve :: [[Integer]] -> Integer
solve = foldl (\acc [c, d] -> (div c 2 + mod c 2) * d + acc) 0