anchor.diff:  %% Test three high register numbers in a put_list instruction
   %% (to test whether packing works properly).
   packed_registers(Config) when is_list(Config) ->
  -    ?line PrivDir = ?config(priv_dir, Config),
  -    ?line Mod = packed_regs,
  -    ?line Name = filename:join(PrivDir, atom_to_list(Mod) ++ ".erl"),
  +    PrivDir = ?config(priv_dir, Config),
  +    Mod = packed_regs,
  +    Name = filename:join(PrivDir, atom_to_list(Mod) ++ ".erl"),
   
       %% Generate a module which generates a list of tuples.
       %% put_list(A) -> [{A, 600}, {A, 999}, ... {A, 0}].
  -    ?line Code = gen_packed_regs(600, ["-module("++atom_to_list(Mod)++").\n",
  +    Code = gen_packed_regs(600, ["-module("++atom_to_list(Mod)++").\n",
   				       "-export([put_list/1]).\n",
   				       "put_list(A) ->\n["]),
  -    ?line ok = file:write_file(Name, Code),
  +    ok = file:write_file(Name, Code),
   
       %% Compile the module.
  -    ?line io:format("Compiling: ~s\n", [Name]),
  -    ?line CompRc = compile:file(Name, [{outdir, PrivDir}, report]),
  -    ?line io:format("Result: ~p\n",[CompRc]),
  -    ?line {ok, Mod} = CompRc,
  +    io:format("Compiling: ~s\n", [Name]),
  +    CompRc = compile:file(Name, [{outdir, PrivDir}, report]),
  +    io:format("Result: ~p\n",[CompRc]),
  +    {ok, Mod} = CompRc,
   
       %% Load it.
  -    ?line io:format("Loading...\n",[]),
  -    ?line LoadRc = code:load_abs(filename:join(PrivDir, atom_to_list(Mod))),
  -    ?line {module,_Module} = LoadRc,
  +    io:format("Loading...\n",[]),
  +    LoadRc = code:load_abs(filename:join(PrivDir, atom_to_list(Mod))),
  +    {module,_Module} = LoadRc,
   
       %% Call it and verify result.
  -    ?line Term = {a, b},
  -    ?line L = Mod:put_list(Term),
  -    ?line verify_packed_regs(L, Term, 600),
  +    Term = {a, b},
  +    L = Mod:put_list(Term),
  +    verify_packed_regs(L, Term, 600),
       ok.
   
   gen_packed_regs(0, Acc) ->
  
positive.code: verify_packed_regs([{Term, N}| T], Term, N) ->
      verify_packed_regs(T, Term, N-1);
  verify_packed_regs(L, Term, N) ->
      ?line ok = io:format("Expected [{~p, ~p}|T]; got\n~p\n", [Term, N, L]),
      ?line test_server:fail().
  
  buildo_mucho(Config) when is_list(Config) ->
      ?line buildo_mucho_1(),
      ok.
  
  buildo_mucho_1() ->
  
negative.code:      {<<>>,1},{<<>>,1},{<<>>,1},{<<>>,1},{<<>>,1},{<<>>,1},{<<>>,1},{<<>>,1}].
  
  heap_sizes(Config) when is_list(Config) ->
      Sizes = erlang:system_info(heap_sizes),
      io:format("~p heap sizes\n", [length(Sizes)]),
      io:format("~p\n", [Sizes]),
  
      %% Verify that heap sizes increase monotonically.
      Largest = lists:foldl(fun(E, P) when is_integer(P), E > P -> E;
  				   (E, []) -> E
  				end, [], Sizes),
  
  