@c+

module test7 -- fibonacci
private
integer i,j,k,ok;

begin

  i := 2; 
  j := 1;
  k := 1;
  write j; write k;
  do i <= 6 ->  
	  i := i+1;
	  ok := k;
	  k := j+k;
	  j := ok; 
	  write k;
  od;

end. --  1 1 2 3 5 8 13 
	