`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 |