anchor.diff:      ",
     ?assertEqual([{"-a", true}, {"-m", undefined}], docopt(D, "-a")).
   
  +options_with_trailing_argument_test() ->
  +  D = "usage: prog [options]
  +
  +    -b       B
  +    -a       A
  +    -z <zs>  Z
  +
  +    ",
  +  ?assertEqual([{"-a", true}, {"-b", true}, {"-z", "ar"}], docopt(D, "-bazar")).
  +
   %%%_* Emacs ===================================================================
   %%% Local Variables:
   %%% allout-layout: t
  
positive.code:           _              -> [Match|Acc0]
          end,
        {true, Rest, Acc}
  
    end.
  
  replace(_Old, New, [])     -> [New];
  
negative.code:      parse_shorts(T, State, [Opt#option{value = Value}|Acc]);
     [Opt] when Opt#option.argcount == 1 ->
       {Value, Rest} = get_value_shorts(H, T, State),
       {[Opt#option{value = Value}|Acc], Rest}
   end.
  
  add_option(State, Option) ->
  