let X(defaults as 0) 41 |
let Y be ten42 |
let Z be Y43 |
say X47 |
say two48 |
say space(evaluates as ' ') 49 |
say line(evaluates as '\n') 50 |
read X54 |
add one to X58 |
subtract one from X59 |
multiply X by two60 |
divide X by two61 |
if X is odd65 |
if X is even66 |
if X equals nine67 |
if X not-equals nine68 |
if X is less-than nine69 |
if X is greater-than nine70 |
if X is less-equal nine71 |
if X is greater-equal nine72 |
if X is divisible-by nine73 | 74 |
if X is divisible-by nine78 |
say X79 |
else80 |
say zero81 |
for every N from five to Z85 |
for every M from Z to N86 |
code//90 |
function F94 |
say one95 |
call F99 |
103 | let A be zero 104 | let B be one 105 | let N be one 106 | 107 | function F 108 | let C be A 109 | add B to C 110 | let A be B 111 | let B be C 112 | say C 113 | say space 114 | add one to N 115 | if N less-equal ten 116 | call F 117 | 118 | call F 119 |120 |
Output:
121 |1 2 3 5 8 13 21 34 55 89122 |