blob: d4e924936ddddbeb7c294a2aa54795ba951b1895 [file] [log] [blame]
`COM#include`END`PLN `END`STR<stdio.h>`END`PLN
`END`COM/* the n-th fibonacci number.
*/`END`PLN
`END`KWDunsigned`END`PLN `END`KWDint`END`PLN fib`END`PUN(`END`KWDunsigned`END`PLN `END`KWDint`END`PLN n`END`PUN)`END`PLN `END`PUN{`END`PLN
`END`KWDunsigned`END`PLN `END`KWDint`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`KWDunsigned`END`PLN `END`KWDint`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
main`END`PUN()`END`PLN `END`PUN{`END`PLN
printf`END`PUN(`END`STR"%u"`END`PUN,`END`PLN fib`END`PUN(`END`LIT10`END`PUN));`END`PLN
`END`PUN}`END