tuplify :: [Integer] -> (Integer, Integer)
tuplify [x, y] = (x, y)

solve :: Integer -> Integer -> Integer
solve x y = powerfulPower (x, y) `mod` 1000000007

main = do
    a <- getLine
    putStrLn $ show $ uncurry solve $ tuplify (map read (words a) :: [Integer])

powerfulPower :: (Integer, Integer) -> Integer
powerfulPower (x, y) 
    | (y == 0) = 1
    | even y = powerfulPower (x*x, y`div`2)
    | odd y = x * powerfulPower (x*x, y`div`2)