sub simple_fill
{
  my ( $save , %def ) = @_;

  for ( keys %def )
  {
    my ( $opt ) = ( $_ =~ m/^ default_ (option_.+) $/x )
      or next;

    $save->{ $opt } = $def{ $_ };
  }

  return;
}