anchor.diff:      end.
   
   %% getter for individual options handling defaults and special cases;
  -%% see table in default_opts() above
  +%% see table in opts() above
   getopt(Opt) ->
       case proplists:get_value(Opt, getopts()) of
  -        undefined -> element(2, lists:keyfind(Opt, 1, default_opts()));
  -        true      -> element(3, lists:keyfind(Opt, 1, default_opts()));
  +        undefined -> element(2, lists:keyfind(Opt, 1, opts()));
  +        true      -> element(3, lists:keyfind(Opt, 1, opts()));
           Value     -> Value
       end.
   
  
positive.code: %%       false: no output
  %%       N: output progress info every N samples
  
  default_opts() ->
      %% The following table specifies the options interpreted
      %%
      %%      name: name of option
  
negative.code: 
      %% name          undefined     novalue
      [ {mag,          0,            3}
      , {progress,     false,        100000}
      , {samples,      16,           16}
      , {strlen,       false,        true}
      ].
  
  %% NB. using the process dict is ugly; passing Opts around is uglier.
  