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'