$x=$x*($x-256&&$x>0)*$x**/s/+/i/-/d/,/o/&&print"$x\n"for<>