Select Code to Download

#!/usr/bin/perl

...
print "p1 $+{part1}\n";
print "p2 $+{part2}\n";

$ks="BinaryNode<OpAdd1<OpAdd2<a>>,OpMulAdd2<OpMulAdd>>";