sub odd { $_[ 0 ] & 1 }
sub even { !odd( $_[ 0 ] }