#!/usr/bin/perl
use strict;
use warnings;
my $node = 65;

for my $i (1..$node-1){
    print "NODE SITE_$i\n";
    print "\tLABEL $i\n";
    my $n = 5 * ($i - 1);
    print "\tPOSITION CENTER_IMAGE ${n}r360\n\n";        
}