use lib qw/ . /;

use Part1;

package Day3::Part2;

use 5.36.0;

sub solve($program) {
    my $p = $program;
    $p =~ s/ don't\(\) .*? (do\(\)|\Z) //smgx;
    return Day3::Part1::solve($p);
}

1;