#!/usr/bin/perl -w
if(open(KI, "kimenet.txt")){

}
else{
print "ERROR\n";
}


$i=0;
while($sor=<>){
chomp($sor);
$szamok[$i]=$sor;
$i+=1;
}

for($j=0;$j<$i;$j++){
    if($szamok[$j]%2==0){
    print $szamok[$j]." ";
    print KI $szamok[$j]." ";
}
}

for($j=0;$j<$i;$j++){
    if($szamok[$j]%2==1){
    print $szamok[$j]." ";
    print KI $szamok[$j]." ";
    }
}

print "\n";
close(KI);