#!/usr/bin/perl
use locale;
use POSIX qw(locale_h);
setlocale(LC_CTYPE, "pt_PT") or die;

@sistema=("Jspell2","LabEL_DC", "ReGra", "LabEL_DL", "Smorph", "PALMORF");
$min=800000;
$max=1;
$i=0;
while ($i lt 6) {
    $j=$i+1;
    while ($j lt 6) {
	$k=$j+1;
	while ($k lt 6) {
	    $l=$k+1;
	    while ($l lt 6) {
		$m=$l+1;
		while ($m lt 6) {
		    $res=`concord.pl $sistema[$i] $sistema[$j] $sistema[$k] $sistema[$l] $sistema[$m]`;
		    ($comuns)=($res=~/Formas comuns([0-9]+)/);
		    print " $sistema[$i] $sistema[$j] $sistema[$k] $sistema[$l] $sistema[$m] $comuns\n";
		    $min=$comuns if ($comuns le $min);
		    $max=$comuns if ($comuns gt $max);
		    $m++;
		}
		$l++;
	    }
	    $k++;
	}
	$j++;
    }
    $i++;
}
print "Max: $max\n;Min: $min\n";