;Even better (more terse)
 S x="",$P(x,"-",10)="-"
 W x