sub righter {$_[0]..$_[1],reverse(pop..pop)}
sub array_range {