hw3-asttest9.myo

begin
  var x, y, z;
  var varname, varname2;
  x := 10;
  y := ((5 - x) - -(7));
  while x != 0
  do
    read x;
    if x <= 0
    then
      print (x + y)
    else
      print (y - x)
    end
  end
end
.