sub makemeanode {
  my $parameter = shift;
  return << "EOR";
node myNode {
  fooParam $parameter
}
EOR
}

##</code><code>##

sub makeMeContainer {
  my $parameter = shift;
  # see, muzakfetch? we're not all so uptight...
  my $child = makemeanode( "DogPoopMonk" );
  return <<"EOR";
node myContainer {
  someParam $parameter
  $child
}
EOR
}

##</code><code>##

node myContainer {
  someParam WhateverWeWerePassed  
  node myNode {
  fooParam DogPoopMonk
}
}

##</code><code>##

node myNode { parm thisParm }