anchor.diff:              [[], DataList];
           _ ->
               [ChildLines, SiblingLines] = split_list(Criterion, Rest),
  -            [[First]++ChildLines, SiblingLines]
  +            [[First|ChildLines], SiblingLines]
       end.
   
   build_nodes([]) -> [];
  
positive.code:     Siblings = build_nodes(SiblingLines),
      Node = #node{content=First#line.content, children=Children},
      io:fwrite( "[~s]~n", [Node#node.content]),
      [Node]++Siblings.
  
  %%--------------------------------------------------------------------------
  
  
negative.code: %%--------------------------------------------------------------------------
  
  main([]) ->
      io:format("usage: parse_indents.erl [[:module]:display_function] <filenames...>\n"),
      halt(1);
  main([[$\:|FuncName]|Filenames]) ->
      %% this is only invoked if the first param begins with ':'
      FuncList = lists:map(fun(List) -> list_to_atom(List) end, string:tokens(FuncName, ":")),
      ShowFunc = case FuncList of
          [Mod, Func] -> fun(Nodes) -> apply(Mod, Func, [Nodes]) end;
  