package Sucker;

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

sub choose {
    $me = shift;
    return "COOPERATE";
}

sub record {
    $me = shift;
    $did = shift;
}

1;