read a b 'b?b=a%(a=b),_:a'
$[_] $[d=1<<{31..0},x+=(x+d)**2>a?0:d] Odd
echo ${_[x*x^a]-Even}