/* Test FizzBuzz-style patterns */
fizzbuzz_test : n ->
  when (n % 3) (n % 5) is
    0 0 then "FizzBuzz"
    0 _ then "Fizz"
    _ 0 then "Buzz"
    _ _ then n;

result1 : fizzbuzz_test 15;
result2 : fizzbuzz_test 3;
result3 : fizzbuzz_test 5;
result4 : fizzbuzz_test 7;
..out result1;
..out result2;
..out result3;
..out result4;