main = do
  n <- readLn :: IO Int
  print $ [2,8,5,7,1,4] !! ((n-1) `mod` 6)