anchor.diff:  		    _ -> ok
   		end
   	end,
  -    
  +
       lists:foreach(G, Simple_items),
  -    
  +
       Tuples = [ {1,2,3,a,b,c}, {"abc", def, 1234},
   	       {{{{a},b,c,{d},e}},f}],
  -    
  +
       Lists = [ [1,2,3,4,5,6,7], lists:seq(1,1000),
   	      [{a}, {a,b}, {a, [b,c]}, "def"], [a|b], [$a|$b] ],
  -    
  -    
  +
  +
       lists:foreach(G, Tuples),
       lists:foreach(G, Lists).
  -    
  +
  +-spec perf() -> ok.
   perf() ->
       {New, _} = timer:tc(trunc_io, perf, [trunc_io, print, 1000]),
       {Old, _} = timer:tc(trunc_io, perf, [io_lib, write, 1000]),
       io:fwrite("New code took ~p us, old code ~p\n", [New, Old]).
   
  +-spec perf(atom(), atom(), integer()) -> done.
   perf(M, F, Reps) when Reps > 0 ->
       test(M,F),
       perf(M,F,Reps-1);
   perf(_,_,_) ->
  -    done.    
  +    done.
   
   %% Performance test. Needs a particularly large term I saved as a binary...
  +-spec perf1() -> {non_neg_integer(), non_neg_integer()}.
   perf1() ->
       {ok, Bin} = file:read_file("bin"),
       A = binary_to_term(Bin),
  
positive.code: %% compliance with the License. You should have received a copy of the
  %% Erlang Public License along with your Erlang distribution. If not, it can be
  %% retrieved via the world wide web at http://www.erlang.org/.
  %% 
  %% Software distributed under the License is distributed on an "AS IS"
  %% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
  %% the License for the specific language governing rights and limitations
  %% under the License.
  %% 
  %% The Initial Developer of the Original Code is Corelatus AB.
  %% Portions created by Corelatus are Copyright 2003, Corelatus
  %% AB. All Rights Reserved.''
  
negative.code: %% Returns {List, Length}
  list_body([], _) -> {[], 0};
  list_body(_, Max) when Max < 4 -> {"...", 3};
  list_body([H|T], Max) ->
      {List, Len} = print(H, Max),
      {Final, FLen} = list_bodyc(T, Max-Len-1),
      {[List|Final], FLen + Len + 1};
  