#!/usr/bin/env /friends/.rakudobrew/bin/perl6
sub fizz-buzz($n) { 
    my &fizz = { $^n % 3 ?? '' !! 'Fizz' };
    my &buzz = { $^n % 5 ?? '' !! 'Buzz' };
    fizz($n) ~ buzz($n) || $n;
}
try {
  say fizzbuzz(15);
  say fizz(3);
  CATCH{
    say $!
  }
}