dcha "$@" |
perl -e '
	while(1) {
		$_ = <>;
		s/(.*)  /$1\t/;
		chomp;
		print;
		print "\t";
		my $first = 1;
		while (1) {
			if ($first) { $first = 0; }
			else { print "  " };
			$_ = <>;
			if (!defined $_) { print "\n"; exit; }
			chomp;
			if ($_ eq "") { last }
			s/^  //;
			print;
		}
		print "\n";
	}
'