http://qs1969.pair.com?node_id=33040


in reply to shortest

Also in spirit. 30 chars.
map{print($_&1?odd:even)}/./g;