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