remaining.p6

my $answer;
for ^2000 {

my $date = Date.today;
my $month = $date.month;

my $days_left = 0;
while ($date.month == $month) {
    if ($date.day-of-week < 6) {
        $days_left++;
    }
    $date = $date.later(:1day);
}

$answer = "$days_left workdays left in month (including today)";

}
say $answer;
say now - BEGIN now;