: {run fizzbuzz from $x to $y} >
    {current number is $x} {run fizzbuzz to $y} :

: {run fizzbuzz to $n} {current number is $n} >
    {fizz $n} {buzz $n} {number is $n} :

: {run fizzbuzz to $stop-value} {current number is $n} >
    {run fizzbuzz to $stop-value} 
    {next number from $n} {fizz $n} {buzz $n} {number is $n} {wrote ""} :

: {fizz $n} > {@modulo $n and #3 into &"mod 3 is *"} :
: {buzz $n} > {@modulo $n and #5 into &"mod 5 is *"} :

: {mod 3 is #0} {wrote $something} > {@write "fizz"} {wrote "fizz"} :
: {mod 3 is $x} > :

: {mod 5 is #0} {wrote $something} > {@write "buzz"} {wrote "buzz"} :
: {mod 5 is $x} > :

: {number is $number} {wrote ""} > {@write $number} {@write "\n"} :
: {number is $number} {wrote $something} > {@write "\n"} :

: {next number from $n} > {@add $n and #1 into &"current number is *"} :

{run fizzbuzz from #1 to #100000}