var a:array[1..100] of string;
    i,j,k,l,n,p,kk:longint;
    c,c1:char;
    s,s1,s2:string;

begin
readln(s);
k:=0;
for c:='0' to '9' do
  begin
  for i:=3 to length(s)+1 do
    begin
    kk:=0;
    s1:=s;
    s2:=c;
    insert(s2,s,i);
    for j:=1 to k do
      if a[j]=s then kk:=1;
    if kk=0 then
      begin
      inc(k);
      a[k]:=s;
      end;
    s:=s1;
    end;
 end;
write(k);
end.