#!/usr/bin/perl -w -s
use strict;
use XML::LibXML;

my $it = shift || 1;
my $nn = shift || '';

print qq($it\n);

my $parser  = XML::LibXML->new();
my $doc = $parser->parse_file("model.xml") or die "cannot open xml file: $!";

my $node = $doc->getDocumentElement();
my @dc = $node->getElementsByTagName('fixe');

foreach my $descr (@dc) {
    foreach my $elt ($descr->childNodes()) {
        next unless $elt->nodeType() == 1;      #to avoid text nodes
        if ( $elt->nodeName eq $nn ) {
            $descr->addSibling($elt->cloneNode) foreach ( 1 .. $it );
        }
        else {
            $descr->addSibling($elt);
        }
    }
    my $parent = $descr->parentNode;
    $parent->removeChild($descr);
}

print $doc->toString();