$_=$=-(shift)**$[;print