I guess I forgot the ultra-ultra short version which doesn't handle spaces or strange
chars:
REBOL[]foreach c ask{}[l: index? find{%etinamsdrgukwohblzfcp�vx�q�yj�56%7�%%8%/
%%%%94%%%%%�%3%%�2%10}c until[prin pick{-�}odd? l(l: l / 2)< 2]prin{ }]
(152-153 bytes, may require deletion of the / at the end of first line on some systems)
Or if we skip numbers:
REBOL[]foreach c ask{}[l: index? find{%etinamsdrgukwohblzfcp�vx�q�yj}c until[
prin pick{-�}odd? l(l: l / 2)< 2]prin{ }]
(120-121 bytes)
--
/Johan R�nnblom, Team Amiga
