---

var
  i,j:longint;
begin
  while not eof do begin
    readln(i);
    j:=abs(i);
    writeln('|',i,'|=',j:4);
  end;
  readln;
end.