===== PascalABC.NET =====
begin
var s := ReadString;
if s.Length = 0 then
Print(0)
else
var k := 1;
foreach var c in s do
if c in [',', '.'] then
Inc(k);
Print(k)
end
end.
===== PascalABC.NET =====
begin
var s := ReadString;
if s.Length = 0 then
Print(0)
else
begin
var k := 1;
foreach var c in s do
if c in [',', '.'] then
Inc(k);
Print(k)
end
end.