|
#!/usr/local/bin/shale
|
|
|
|
string library
|
|
|
|
r var
|
|
i var
|
|
i 1 =
|
|
{ i 100 <= } {
|
|
r "" =
|
|
i 3 % 0 == { r r "fizz" concat string::() = } ifthen
|
|
i 5 % 0 == { r r "buzz" concat string::() = } ifthen
|
|
r "" equals string::() { i } { r } if i "%3d: %p\n" printf
|
|
i++
|
|
} while
|