#!/usr/bin/perl

my @sitenumbers = (7,12);

print "execopu -text\n";
print "cell\n";

foreach my $site_number (@sitenumbers){

print <<EOF;
u
csno = $site_number
ccuoosmin_3g1x = ""
ccuoos_3g1x = ""
u
EOF
}