anchor.diff:      Siblings = build_nodes(SiblingLines),
       Node = #node{content=First#line.content, children=Children},
       io:fwrite( "[~s]~n", [Node#node.content]),
  -    [Node]++Siblings.
  +    [Node|Siblings].
   
   %%--------------------------------------------------------------------------
   
  
positive.code: %%--------------------------------------------------------------------------
  
  main([]) ->
      io:format("usage: parse_indents.erl [:function_name] <filenames...>\n"),
      halt(1);
  main([[$\:|FuncName]|Filenames]) ->
      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;
  
negative.code:             [[], DataList];
          _ ->
              [ChildLines, SiblingLines] = split_list(Criterion, Rest),
              [[First|ChildLines], SiblingLines]
      end.
  
  build_nodes([]) -> [];
  