powmod :: Integer -> Integer -> Integer -> Integer powmod n m now | m == 0 = now | odd m = powmod (n * n) (m `div` 2) (now * n `mod` 10) | otherwise = powmod (n * n) (m `div` 2) now main = do n <- getLine m <- getLine let n' = read n :: Integer let m' = read m :: Integer print $ powmod n' m' 1