while?read(?-,?-,~)#~do(s:?read\-line(),a:?read(),if(a<0)then s:sreverse(s),sum(printf(?t,"~a",s),i,1,abs(a)),newline());