n a@(q:w)=init$zip a$w++[q] f r|length r>1=g.n$r|1>0=[] g=(\r->(>>=show)r++'\n':f r).map(\(a,b)->abs$a-b) main=interact(\l->l++(g$n$map(\c->read[c])$init$l))