Untitled

#!/usr/bin/env perl6

sub MAIN(Int :$months!, Int :$pairs-produced!) {
  
  my @rabbit-ages .= push: 1;
  
  for 1..$months {
    for @rabbit-ages -> $age {
      unless $age == 1 {
        for $pairs-produced { @rabbit-ages.push: 1 }
      }
      $age += 1;
    }
  }

  say @rabbit-ages.elems
}