| `COM#!/usr/bin/perl`END`PLN | |
| `END`KWDuse`END`PLN strict`END`PUN;`END`PLN | |
| `END`KWDuse`END`PLN integer`END`PUN;`END`PLN | |
| `END`COM# the nth element of the fibonacci series`END`PLN | |
| `END`COM# param n - an int >= 0`END`PLN | |
| `END`COM# return an int >= 0`END`PLN | |
| `END`KWDsub`END`PLN fib`END`PUN(`END`PLN$`END`PUN)`END`PLN `END`PUN{`END`PLN | |
| `END`KWDmy`END`PLN $n `END`PUN=`END`PLN shift`END`PUN,`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`PUN(`END`PLN$a`END`PUN,`END`PLN $b`END`PUN)`END`PLN `END`PUN=`END`PLN `END`PUN(`END`PLN$a `END`PUN+`END`PLN $b`END`PUN,`END`PLN $a`END`PUN)`END`PLN `END`KWDuntil`END`PLN `END`PUN(--`END`PLN$n `END`PUN<`END`PLN `END`LIT0`END`PUN);`END`PLN | |
| `END`KWDreturn`END`PLN $a`END`PUN;`END`PLN | |
| `END`PUN}`END`PLN | |
| `END`KWDprint`END`PLN fib`END`PUN(`END`LIT10`END`PUN);`END |