main :: IO ()
main = interact $ show . solve . map read . words

power' :: Int -> Int -> Int
power' x 0 = 1
power' x 1 = x
power' x n | odd n     = ((x `mod` 1000003) * (power' x (n `div` 2) `mod` 1000003) * (power' x (n `div` 2) `mod` 1000003)) `mod` 1000003
           | otherwise = ((power' x (n `div` 2) `mod` 1000003) * (power' x (n `div` 2) `mod` 1000003)) `mod` 1000003

solve :: [Int] -> Int
solve (x:_:xs) = sum [power' x y | y <- xs] `mod` 1000003