Program e1a;
Var X:integer;
Begin
Readln(X);
	While X <> -1 do
	Begin
		Writeln(X * X);
		Readln(X)
	End
End.