Tic Tac Toe implementation in Scheme