Select Code to Download

use strict;
use warnings;
...
}

print "$_ = $subst{$_}\n" for sort keys %roots;

d = ~((a & b) | c)
g = ~((a & b) | c) | (a & b)