`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