#!/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) = TicTacToe::Board->new();
$game->display();
my(@moves) = $game->generate_moves();
foreach (@moves[0..2]) {
    $game->apply_move($_)->display();
}

