perl -e 'eval{alim tsuj}; while($a[$i++]=chop($@)){;};print $a[$_] foreach 18...21, 3, 13, 8, 20, 19, 35, 49, 47, 6, 20, 4, 3, 37, 36, 35, 70, 72..75; $\="\n"; print'
perlmonks.org content © perlmonks.org and mk., smokemachine
prlmnks.org © 2006 edmund von der burg (eccles & toad)
v 0.03