program Nebelica_3;
var first, second, size, vectorCounter, m, x1, x2, n, p: integer; vec: array of integer;

begin
  writeln('Enter first number:');
  read(first);
  writeln('Enter second number:');
  read(second);
  size := 0;
  x1 := first;
  while x1 <> 0 do
  begin
    x1 := x1 div 10;
    size := size + 1;
  end;
  setlength(vec, size);
  vectorCounter := 0;
  x1 := first;
  while x1 <> 0 do
  begin
    m := x1 mod 10;
    x1 := x1 div 10;
    x2 := first;
    n := 0;
    while x2 <> 0 do
    begin
      p := x2 mod 10;
      x2 := x2 div 10;
      if m = p then  n := n + 1;
    end;
    if (n = 1) then
    begin
      vec[vectorCounter] := m;
      vectorCounter := vectorCounter + 1;
    end;
  end;
  vectorCounter := 0;
  while second <> 0 do
  begin
    m := second mod 10;
    second := second div 10;
    if vec.Contains(m) then vectorCounter := vectorCounter + 1;
  end;
  writeln(vectorCounter);
end.