perl -le"@_=reverse a..j;print join'',reverse@_[0..shift()-1]" 5