Select Code to Download

Tree : Node*

Node : Term Tree
     | Term

sub flatten {
   my ($tree) = @_;
...
}

print("@$_\n") for @{ flatten($data_struct) };