#!/usr/monastery/arena/bin/perl 

use strict;
use Net::NutBits;
use Net::Mammal;
use Monks::IronMonk;
use Contest;

local $Chipmunk = new Mammal;
local $Ovid = new IronMonk;
local $Combat = new Contest($Chipmunk, $Ovid);

while( $Combat->round-- && $Combat->Fighting())
{
  if ( $Ovid->karma() > $Chipmunk->karma() )
  { 
    $Chipmunk->pain++; 
  }else
  {
    $Ovid->pain++;
  }

  if ( ! $Chipmunk->karma() ) { $Combat->Winner = $Ovid;}

  if ( ! $Ovid->karma() ) { $Combat->Winner = $Chipmunk;}
}

$Combat->Winner->Glory();

$Combat->loser("Rice-a-Roni!");