my @s = get.comb;

my $ans = 1e4;

for 0..^@s.elems -> $i {
    for $i + 1..^@s.elems -> $j {
        for $j + 1..^@s.elems -> $k {
            if @s[$i] eq 'c' && @s[$j] eq 'w' && @s[$k] eq 'w' {
                $ans = $ans min ($k - $i + 1)
            }
        }
    }
}

say $ans == 1e4 ?? -1 !! $ans