use strict;
use XML::Simple;
use LWP::UserAgent;
use Games::GuessWord;

package GamesGuesswordExtended;
{
  use Games::GuessWord;
  use base 'Games::GuessWord';
  
  sub new {
    my $class = shift();
    my $monk = shift();
    my $self = Games::GuessWord->new(words => [$monk]);
    
    bless($self,$class);
    return $self;
  }
  
  # 8-6-2003.  sub guess can be completely replaced with
  # the 'sub guess' found in the following node