program pku1003(input,output);
var r,s:real;t:longint;
begin
while not eof do
 begin
 readln(s);
 t:=1;
 r:=0;
 while (r-s)<exp(-38) do
  begin
  inc(t);
  r:=r+1/t;
  end;
 dec(t);
 writeln(t,' card(s)');
 end;
end.