use Tie::Subset::Array;
sub arr_alias_4 {
	my ($arr,@i) = @_;
	tie my @x, 'Tie::Subset::Array', $arr, \@i;
	return \@x;
}

use Tie::Subset::Hash;
sub hash_alias_4 {
	my ($hash,@k) = @_;
	tie my %x, 'Tie::Subset::Hash', $hash, \@k;
	return \%x;
}