#!/usr/bin/perl
# 3 Zhivo Barmo

<>;
$b=$z=0;
while ($eil=<>) {

    print ($eil," :Perskaityta eilute\n");

chomp($eil);
$eil.="\x20";

$eil=~s/-1\x20//g;

	print ($eil," :Eilute, gale pridejus tarpa, ir istrynus visus -1\n");
    

while ($eil=~/\b(\d*[13579])\x20(\d*[02468])\b/){
	$eil=~s/\b(\d*[13579])\x20(\d*[02468])\b/$1>$2?$1:$2/ge;
	print ($eil, " :Eilute, ivykus 1+ musiui(iams), t.y. pasisalina 1+ kovotojas(ai)\n");
}

while ($eil=~/\b(\d*[13579]\x20)/){
$eil=~s/\b(\d*[13579]\x20)//;
    print ($eil, " :Eilute, istrynus viena NELYGINI skaiciu\n");
$z++;
}
while ($eil=~/(\d*[02468]\x20)/){
$eil=~s/\b(\d*[02468]\x20)//;
    print ($eil, " :Eilute, istrynus viena LYGINI skaiciu\n");
$b++;
}
 print "z: ",$z,"\n";
 print "b: ",$b,"\n";	
 print "\n";
}

print $b," ",$z," :Atsakymas\n";