#!/usr/bin/perl

while (1) {

$stuff = <STDIN>;
chomp $stuff;
@nums = split " ", $stuff;

$val = 0;
foreach (@nums) {
  $val = $val ^ $_;
}

print "Val is ", $val, "\n";

foreach $v (@nums) {
  if (($val ^ $v) < $v) {
    print "Remove ", ($v - ($val ^ $v)), " from ", $v, "\n";
  }
}

}