var num,n,sum:longint;
begin
  while not eof do begin
    readln(n);
    num:=n;
    n:=n*10+1;
    sum:=1;
    while n mod num<>0 do begin
      n:=n mod num;
      n:=n*10+1;
      inc(sum);
    end;
  writeln(sum);
  end;
end.