map{$_&&print$n+=$_,$/}y/-//,y/_//for<>