{-# LANGUAGE BangPatterns #-}

import           Control.Monad.ST
import           Data.STRef
import qualified Data.Vector.Fusion.Stream.Monadic as VFSM

stream :: Monad m => Int -> Int -> VFSM.Stream m Int
stream !l !r = VFSM.Stream step l
  where
    step x
      | x < r     = return $ VFSM.Yield x (x + 1)
      | otherwise = return $ VFSM.Done
    {-# INLINE [0] step #-}
{-# INLINE [1] stream #-}

rep :: Monad m => Int -> (Int -> m ()) -> m ()
rep n = flip VFSM.mapM_ (stream 0 n)
{-# INLINE rep #-}

main :: IO ()
main = readLn >>= print . solver

solver :: Int -> Int
solver m = runST $ do
  ans <- newSTRef (1 :: Int)
  rep 128 $ \_ -> modifySTRef' ans (flip mod m . (*2))
  readSTRef ans