main = getContents >>= print . proctor . map (map read . words) . tail . init . lines proctor = flip mod m . sum . map (\[c,d] -> div ((mod c m) + 1) 2 * (mod d m)) where m = 1000000007