perl -e 'foreach (a..j) { print index(" abcdefghij",$_) . "\n"; }'

Miki Janosi
mjanosi@uakron.edu