codeb/abgabe_bj.0

   1 struct elem end;
   2
   3 method vadd(v n)
   4   while 0<n do
   5     n:=n-1;
   6     (this-(-8*n)).elem := (this-(n*-8)).elem - (0-(v-(n*-8)).elem);
   7   end;
   8   return this;
   9 end;
  10