package Titfortat;

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

sub choose {
    $me = shift;
    @history = @{$me->{history}};
    if($#history >= 0){
	return $history[$#history];
    }
    else{
	return "COOPERATE";
    }
}

sub record {
    $me = shift;
    $did = shift;
    push(@{$me->{history}}, $did);
}

1;