nextGuess :: MVar Int -> IO ()
nextGuess secretVar =
  modifyMVar_  secretVar $ \_ ->
    getStdRandom $ randomR (1, 100)
nextGuess :: MVar Int -> IO ()
nextGuess secretVar =
  modifyMVar_  secretVar $ \_ ->
    getStdRandom $ randomR (1, 100)
nextGuess secretVar =
  modifyMVar_  secretVar $ \_ ->
    getStdRandom $ randomR (1, 100)