sub fb_to_perm {
  my @arr = @{ shift() };
  my $fb = shift;
  return unless defined $fb;
  my @ret;
  push @ret, splice @arr, $_, 1 for @$fb;
  push @ret, @arr;
  return @ret;
}