anchor.diff:  
   list_bodyc([], _) -> {[], 0};
   list_bodyc(_, Max) when Max < 4 -> {"...", 3};
  -list_bodyc([H|T], Max) -> 
  +list_bodyc([H|T], Max) ->
       {List, Len} = print(H, Max),
       {Final, FLen} = list_bodyc(T, Max-Len-1),
       {[$,, List|Final], FLen + Len + 1};
  
positive.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};
  
negative.code: 
  %%--------------------
  %% The start of a test suite. So far, it only checks for not crashing.
  -spec test() -> ok.
  test() ->
      test(trunc_io, print).
  
  -spec test(atom(), atom()) -> ok.
  test(Mod, Func) ->
      Simple_items = [atom, 1234, 1234.0, {tuple}, [], [list], "string", self(),
  		    <<1,2,3>>, make_ref(), fun() -> ok end],
  