advent.p6

#!/usr/bin/env perl6

my $*INPUT;

proto MAIN(Str $day, Str $part) {
  $*INPUT = ('input/' ~ $day).IO.slurp;
  {*}
}

multi MAIN('day01', 1) {
  ...
}

multi MAIN('day01', 2) {
  ...
}

multi MAIN('day02', 1) {
  ...
}

multi MAIN('day02', 2) {
  ...
}