Help for this page
>perl -wMstrict -le "use constant AYCHES => 1 .. 100; ... print qq{'$H50[50]' '$H100[-1]'}; " '50' '100'