/usr/web/sources/contrib/fernan/nhc98/src/libraries/parsec/examples/while/fib.wh

Plan 9 from Bell Labs’s /usr/web/sources/contrib/fernan/nhc98/src/libraries/parsec/examples/while/fib.wh


v := 1; 
u := 1; 
if n <= 2 then 
  skip 
else 
  while n > 2 do (
    t := u; 
    u := v; 
    v := u + t
    )