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