codeb/abgabe_bg.0

   1 struct next end;
   2
   3 method length()
   4   var l:=this;
   5   var len:=0;
   6   while l do
   7     l:=l.next;
   8     len:=len--1;
   9   end;
  10   return len;
  11 end;