(while:prn:cut(= s(readline))0(posmatch s(+ s""s)1))