#! /usr/bin/perl

$NN="\n";
@arr=();
foreach $i (11..33) {
$arr[$i-11]=int((rand $i/0.27-$i-$#arr/12.7)/0.57-3.11);
#$arr[$i-11]=int($i/(i+11.17))*($i-11)+1;
}
print $#arr,' ',join ' ',@arr,$NN;
$ns=$#arr;
$sv=0;
$sr=0;
foreach $i (@arr) {
$sv+=$i;
$sr+=1./$i;
}
$myvr=$sv*$sr/$ns/$ns;
$mrc=rsc(15);
$m2=7 % 3;
print $ns,' ',$sv/$ns,' ',$ns/$sr,' ',1./$myvr,' ',$mrc,' ',$m2,$NN;
@bp7=(1,3,7,9,3,9,1,7);
sub rsc {
my ($arg)=@_;
my $T=1;$TT=1;
while ($TT < $arg/2) {
$TT+=$T;
$T=$TT-$T;
}
return $TT;
}
