sub mysplice (\@;$$@) {
	my ($arr,$off,$len,@list) = @_;
	splice @$arr, $off//0, $len // @$arr - ($off//0), @list;
}