@s=map{substr$c,$_<0?(0,$s+$_):($_,$s)}1-$s..length$c;