my %result = ();
my $command = '';
for my $line (@d) {
	if ($line =~ /^<(.+)/) {
		$command = $1;
	}
	
	$result{$command} .= $line;
}