main=interact(\x->do(_,a:b)<-[span('!'>)$r$z(%)x$scanl(+)n$z(#)x$tail x|n<-[-99..9]];r$'\n':a:b) a#b|a