var i,a:integer; begin a:=1; for i:=1 to 100500 do begin writeln('-1^',i,' = ',a); a:=a*(-1); end; readln; end.