sub t {
    my ($a, $b) = @_;
    my ($wa, $wb, $db);

    my $fail = 0;

    foreach (@$a) { chomp }
    foreach (@$b) { chomp }

    my @oa = @$a;
    my @ob = @$b;

    if (@$a == @$b) {
	for $wa (@$a) {
	    $wb = shift(@$b);
	    $db = defined $wb;
	    if ($db) {
	        $wa =~ s/^\s+//;
	        $wa =~ s/\s+$//;
	        $wb =~ s/^\s+//;
	        $wb =~ s/\s+$//;
	        $wa =~ s/\n//g;
	        $wb =~ s/\n//g;
	    }
	    if (not $db or $wa ne $wb) {
		print STDERR "# ne: $wa $wb\n";
		$fail = 1;
		last;
	    }
	}
    } else {
	print STDERR "# !=: ", scalar @$a, " ", scalar @$b, "\n";
	$fail = 1;
    }
    if ($fail) {
	print STDERR "# EXPECTED: @oa\n";
	print STDERR "# GOT:      @ob\n";
    }
    return !$fail;
}

1;