let f (str : string) = let chain = let detect c = c = '…' Array.unfold(fun (i, p) -> if i < str.Length then let chain = if detect <| str.[i] then p + 1 else 0 Some(chain, (i + 1, chain)) else None ) (0, 0) chain |> Array.max let S = stdin.ReadLine() f S |> stdout.WriteLine