Program e1b;
Var X:integer;
Begin
Repeat
Readln(X);
If X <> -1 then
Writeln(X * X)
Until X = -1
End.