import Control.Applicative

main :: IO ()
main = solve <$> readLn >>= print

solve :: Int -> Int
solve n = let i = (n - 1) `mod` 6 in xs !! i
  where
    xs = [2,8,5,7,1,4]