| `COM/** | |
| * nth element in the fibonacci series. | |
| * @param n >= 0 | |
| * @return the nth element, >= 0. | |
| */`END`PLN | |
| `END`KWDfunction`END`PLN fib`END`PUN(`END`PLNn`END`PUN)`END`PLN `END`PUN{`END`PLN | |
| `END`KWDvar`END`PLN a `END`PUN=`END`PLN `END`LIT1`END`PUN,`END`PLN b `END`PUN=`END`PLN `END`LIT1`END`PUN;`END`PLN | |
| `END`KWDvar`END`PLN tmp`END`PUN;`END`PLN | |
| `END`KWDwhile`END`PLN `END`PUN(--`END`PLNn `END`PUN>=`END`PLN `END`LIT0`END`PUN)`END`PLN `END`PUN{`END`PLN | |
| tmp `END`PUN=`END`PLN a`END`PUN;`END`PLN | |
| a `END`PUN+=`END`PLN b`END`PUN;`END`PLN | |
| b `END`PUN=`END`PLN tmp`END`PUN;`END`PLN | |
| `END`PUN}`END`PLN | |
| `END`KWDreturn`END`PLN a`END`PUN;`END`PLN | |
| `END`PUN}`END`PLN | |
| document`END`PUN.`END`PLNwrite`END`PUN(`END`PLNfib`END`PUN(`END`LIT10`END`PUN));`END |