Tic Tac Toe Program

TicTacToeProgram.kt

fun program(programState: ProgramState): IO<Unit> =
  IOs.gameScreen(programState)
    .flatMap { currentState -> IOs.gameInput(currentState) }
    .flatMap { currentState -> program(currentState) }

fun main() {
  either {
    val game = Game.new().bind()
    val p = program(game.right())
    Interpreter.run(p)
  }
}