import Control.Monad
import Control.Applicative

solve :: Integral a => a -> a -> a
solve n m 
    | m' == 0 = n `mod` 10
    | otherwise = (n' ^ m) `mod` 10
    where
        n' = n `mod` 10
        m' = (m - 1) `mod` 4

main = do
    [n, m] <- map read . words <$> getLine
    putStrLn $ show $ solve n m