Select Code to Download

use strict;
use warnings;
...

    write_compactly($keep, $del, $ins, @new[ $ni-$ins .. $ni-1 ])
} while @$oil > 1;

,1,["e","Uniq"],["a","Uniq"]
3,,["a","Uniq"],["b","Uniq"]
2,,["f","Uniq"]
3,,["d","Burn"],["b","Burn"],["d","Burn"],["c","Burn"],["c","Burn"],["
+b","Burn"]
5,,