open System.Text.RegularExpressions

let P = new Regex("…+")
let S = stdin.ReadLine ()
let mSeq = P.Matches(S) |> Seq.cast<Match> |> Seq.map (fun m -> m.Length)
(if Seq.isEmpty mSeq then 0 else Seq.max mSeq) |> printfn "%d"