
my @c1 = rec_array ('C1');
my @rp = rec_array ('RP');
foreach my $au ( rec_array('AU') ) {
	row( 'cropsy', 
		ut => rec('UT'),
		au => $au,
		c1 => shift @c1,
		rp => shift @rp,
		tc => rec('TC'),
		py => rec('PY')
	)
}

