#!/usr/local/bin/perl -w

use strict;

require Queen;
require Queen::Null;

my $lastQueen;
my $column;
my $neighbour = new Queen::Null;

foreach $column (1 .. 8) {
  $lastQueen = new Queen;
  $lastQueen->initialColumn ($column, $neighbour);
  $neighbour = $lastQueen;
}

if ($lastQueen->first ()) {
  my $tuple;

  foreach $tuple (@{$lastQueen->getState ()}) {
    print "row: $tuple->[0] column: $tuple->[1]\n";
  }
}