print"@{[grep$_,@a=map$x-=$_=-$_,@a,@a]}
"for(@a=1)x10