#!/usr/bin/perl

for ($i=0;$i<40000;$i++) {
    $broj[$i]=0;
}

for ($i=2;$i<=200;$i++) {
    for ($j=$i+1;$j<=200;$j++) {
	$broj[$i*$j]++;	
    }
}

for ($zbir=4; $zbir<=400; $zbir++) {
#$zbir=17;
    splice @proizvodi;
    $i=2; 
    if ($zbir-$i>200) { $i=$zbir-200; }
    $brojproiz=0;
    while ($i<=200 and $i<=$zbir/2) {
	$j=$zbir-$i;
	if ($broj[$i*$j]<2) { 
	    $brojproiz++;
	}# else {
	    $pro=$i*$j; push @proizvodi, "$i*$j=$pro : $broj[$i*$j]"; 
	#}
	$i++;
    }
    if ($brojproiz==0) {
	push @zbirovi,$zbir;
	print "zbir: $zbir\n";
	foreach $proiz (@proizvodi) {
	   print "\t$proiz\n";
	}
    }
    #print "zbir: $zbir, $brojproiz\n";
    #foreach $proiz (@proizvodi) {
    #    print "\t$proiz\n";
    #}
}

print "izlaz:\n";
foreach $zbroj (@zbirovi) {
    print "$zbroj ";
}
print "\n";