$_=<>;$m<($"=$-[2]-$-[0])&&$m or$m=$"while s/c(.*?w.*?w)(.?)/$1$2/;print$m||-1,$/