--- gameLoop targetRound round word history =
--- do whileM_ ((/= targetRound) <$> readSTRef round)
--- $ gameStep round word history
--- return ()
+gameLoop targetRound round word history =
+ do whileM_ ((/= targetRound) <$> readSTRef round)
+ $ gameStep round word history
+ return ()