var
  x, y :real;

begin

  readln(x);
  
  y:= x * arctan(x) - ln(sqrt(1 + sqr(x)));
  
  writeln(y);

end.