-- Plays a pattern 35 moves long -- Trying to be nice :) function InSomeOrder return Move is begin case MN mod 35 is when 3 .. 4 => return Defect; when 9 .. 12 => return Defect; when 19 .. 22 => return Defect; when 29..31 => return Defect; when others => return Cooperate; end case; end InSomeOrder;