import Data.List
main=do
  str<-getLine
  let ci = elemIndices 'c' str
  let wi = elemIndices 'w' str
  print $ case take 1 =<< [drop 1[w-c+1|w<-wi,w>c]|c<-ci] of
    []  -> -1
    lns -> minimum lns