$n=<>; for(1..$n){ $b=$n-$_; if($_&$_-1&&$b&$b-1){ print"$_ $b"; exit; } } print-1;