Foo.yp %{ use strict; use warnings; use Data::Dumper; %} %% body : section | body section { shift; return join( "\n" , @_ ); } ; section : h1 { my ($self, @patterns) = @_; return '<h1>' . $patterns[0] . '</h1>'; } | letters RETURN ; h1 : ASTARISK l…