Print the reason why the game is over, using a WriterT monad