sub path_parts(@) { shift=~m((/[^/]*))g }
sub limit_list($@) { $#_=-1+shift; @_ }