`COM(*
 * Print the 10th fibonacci number
 *)`END`PLN

`END`COM//// A line comment`END`PLN
`END`STR"A string"`END`PUN;;`END`PLN
`END`PUN(`END`LIT0`END`PUN,`END`PLN `END`LIT125`END`PUN,`END`PLN `END`LIT0xa0`END`PUN,`END`PLN `END`LIT-1.0`END`PUN,`END`PLN `END`LIT1e6`END`PUN,`END`PLN `END`LIT1.2e-3`END`PUN);;`END`PLN  `END`COM// number literals`END`PLN

`END`COM#if fibby`END`PLN
  `END`KWDlet`END`PLN
    `END`KWDrec`END`PLN fib `END`PUN=`END`PLN `END`KWDfunction`END`PLN `END`PUN(`END`LIT0`END`PUN,`END`PLN a`END`PUN,`END`PLN _`END`PUN)`END`PLN `END`PUN-&gt;`END`PLN a
                     `END`PUN|`END`PLN `END`PUN(`END`PLNn`END`PUN,`END`PLN a`END`PUN,`END`PLN b`END`PUN)`END`PLN `END`PUN-&gt;`END`PLN fib`END`PUN(`END`PLNn `END`PUN-`END`PLN `END`LIT1`END`PUN,`END`PLN a `END`PUN+`END`PLN b`END`PUN,`END`PLN a`END`PUN)`END`PLN
  `END`KWDin`END`PLN
    print_int`END`PUN(`END`PLNfib`END`PUN(`END`LIT10`END`PUN,`END`PLN `END`LIT1`END`PUN,`END`PLN `END`LIT1`END`PUN));;`END`PLN
`END`COM#endif`END`PLN

`END`KWDlet`END`PLN zed `END`PUN=`END`PLN `END`STR'z'`END`PLN

`END`KWDlet`END`PLN f' x' `END`PUN=`END`PLN x' `END`PUN+`END`PLN `END`LIT1`END