anchor.diff:    length(read_file(Filename)).
   
   get_line_seg(Filename,Line,Seg) ->
  -  e(Seg,e(Line,read_file(Filename))).
  +  hd(get_line_seg(Filename,Line,Seg,Seg)).
  +
  +get_line_seg(Filename,Line,SegF,SegL) ->
  +  [e(S,e(Line,read_file(Filename))) || S <- lists:seq(SegF,SegL)].
   
   read_file(Filename) ->
     {ok,C} = file:read_file(Filename),
  
positive.code: -module('redbug_eunit').
  -author('mats cronqvist').
  
  -include_lib("eunit/include/eunit.hrl").
  
  t_0_test() ->
  
negative.code:   maybe_show(Filename),
    ?assertEqual(<<"lists:sort([3,2,1])">>,
                 get_line_seg(Filename,2,2)),
    ?assertEqual([<<"lists:sort/1">>,<<"->">>,<<"[1,2,3]">>],
                 get_line_seg(Filename,4,2,4)),
    maybe_delete(Filename).
  
  t_2_test() ->
  