my $command = '';
for my $line (@d) {
	if ($line =~ /^<(.+)/ ... $line =~ /^<($command)/) {
		$command = $1;
		say "REIN ".$command.' '.$line;
	}
	else {
		say "RAUS ".$command.' '.$line;
	}
}