program H;
var
s,s0:string;
i,k:integer;
begin
s:='databasedata';
s0:='data';
k:=0;
for i:=1 to length(s)-length(s0)+1 do
begin
writeln(copy(s,i,length(s0)));
if copy(s,i,length(s0))=s0 then
inc(k);
end;
writeln(k);
end.