#!/usr/bin/env /friends/.rakudobrew/bin/perl6
sub fizz($n) { $n % 3 ?? '' !! 'Fizz' }
sub buzz($n) { $n % 5 ?? '' !! 'Buzz' }
sub fizzbuzz($n) { fizz($n) ~ buzz($n) || $n };
say fizzbuzz($_) for 1..30;