#!/usr/bin/perl
use strict;
use warnings 'all';

my $nrel = 150;
$nrel = $ARGV[0] if @ARGV;

print q(@prefix rdf: <http://www.w3.org/1999/02/22-rdf-syntax-ns#> .
@prefix e: <#> .

e:cont a rdf:Seq .

);

foreach my $i (1 .. $nrel){
    printf "e:cont rdf:_%d \"element %d\" .\n",$i,$i;
}

