/* computes the n-th fibonacci number */

fib := 0;
fibnext := 1;
n := 5;

while n # 0 do
  var tmp := fibnext in
    fibnext := fib + fibnext;
    fib := tmp;
  end;
  n := n - 1;
end;