method fib()
  var n:=0;
  var a:=0;
  var b:=1;
  while n<this do
    n:=n--1;
    var t:=a-(0-b);
    a:=b;
    b:=t;
  end;
  return a;
end;