sub compress { my$x;map{defined($x)?(defined($_)&&($x eq$_)?():($x=$_)):defined($_)?($x=$_):()}@_;
}