chop($_=<>);print "\n$a: ",$a>>1?'odd':'even' while $a=chop;

# The above snipit does not work. 
# When I posted it, I was thinking that the bit shift >>
# would return the bit shifted off the end, but of course,
# sanity eventualy prevailed and I realized that it does
# not do that. (duh!)
# Additionally, it has a bug in that it stops on the first
# zero in the number. 
#
# TEST TEST TEST!!!