package main; my $grammar = new Language::AttributeGrammar <<'EOG'; Branch: $/.len = { 1 + $.len } Leaf: $/.len = { 1 } Cons: $/.len = { $.len + $.len } Nil: $/.len = { 0 } EOG