print+($%=(sort{$a-$b}map$'=~/.*w.*w/+length$&,<>=~/c/g)[0])<2?-1:$%