7 lines
161 B
Text
7 lines
161 B
Text
DEFINE out == [[[15 rem null] "FizzBuzz"]
|
|
[[ 3 rem null] "Fizz"]
|
|
[[ 5 rem null] "Buzz"]
|
|
[]] cond
|
|
[putchars pop] [put] ifstring '\n putch.
|
|
|
|
100 [] [out] primrec.
|