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