16 lines
252 B
Text
16 lines
252 B
Text
$ENTRY Go {
|
|
= <FizzBuzz 1>;
|
|
};
|
|
|
|
FizzBuzz {
|
|
101 = ;
|
|
s.N = <Prout <Item s.N>>
|
|
<FizzBuzz <+ 1 s.N>>;
|
|
};
|
|
|
|
Item {
|
|
s.N, <Mod s.N 15>: 0 = FizzBuzz;
|
|
s.N, <Mod s.N 5>: 0 = Buzz;
|
|
s.N, <Mod s.N 3>: 0 = Fizz;
|
|
s.N = s.N;
|
|
};
|