blob: 65ec455476db5141c44a6940f62df904466157b1 [file] [log] [blame]
`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->`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->`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