Select Code to Download

@lists =(  (12..17), (25..42), (44..50)  );
@gap_fillers = (m..n) - intersection( (m..n), @lists );

$lists = Set::Infinite->new([12,17], [25,42], [44,50]);
print Set::Infinite->new([m,n])->minus($lists);