my $row = 0;
for ($row = 2, $row <= 10; $row++) {
  gen(d('A',1), c('A',$row), c('B',$row), t('C',$row), c('D',$row)+c('E',$row));
}