#!/usr/bin/perl -w
# $Id: test2.pl,v 1.1.1.1 2008/10/12 04:05:34 alamos Exp $
push @INC, ".";
use TicTacToe::Board;
my($game)= &init_game;
&display_game($game);
my(@moves)=&generate_moves($game);
foreach (@moves[0..2]) {
    &display_game(&apply_move($game, $_));
}

