#define x for i:=1to n do
var a:array[byte]of comp;i,j,n:comp;begin
read(n);x read(a[i]);for j:=-999to 99do x if-j=a[i]then write(-j,^`)end.