my $board = ChessBoard->new('start');
my $game = GameState->new(
   -white => ChessPlayer->new(
                 -board => $board,
                 -controller => Human->new(
                     -name => 'Larry',
                     -coffee => 1,
                 ),
             ),
   -black => ChessPlayer->new(
                 -board => $board,
                 -controller => Computer->new(
                      -level => 5,
                      -ply => 3,
                      -timecap => 60,
                      -style => 'Nimzovitch',
                 ),
             ),
   -board => $board,
   -rules => new ChessRules('suicide'),
);