package Random;

sub new {
    return bless {"history" => [],
	      };
}

sub choose {
    $me = shift;
    if(rand(1) > .5){
	return "COOPERATE";
    }
    else{
	return "DEFECT";
    }
}

sub record {
}
1;