#!/usr/bin/perl -w
# $Id: test1.pl,v 1.1.1.1 2008/10/12 04:05:34 alamos Exp $
push @INC, ".";
use TicTacToe::Position;
$position = TicTacToe::Position->new();
$position->display();
print $position->unoccupied_squares(), "\n";
$position->child(3, 'x')->display();
