open System.Text.RegularExpressions

let S = stdin.ReadLine().Trim()

0 :: [for m in Regex.Matches(S, @"([^…]*(…+))") -> m.Groups.[2].Length ]
|> List.max
|> printfn "%d"