anchor.diff:      format_txt(T, Env, [H|L], Doc);
   format_txt([], Env, L, Doc) ->
       {_, L1} = clear_line(Env, L),
  -    reverse(L1).
  +    {Env, reverse(L1)}.
   
   format_wiki_word(Str, Env) ->
       F = Env#env.f,
  
positive.code: after_nl([${,$\n|T], Env, L, Doc)  -> pre(T, Env, L, Doc);
  after_nl([${,${|T], Env, L, Doc)   -> emb(T, Env, L, Doc);
  after_nl([${|T], Env, L, Doc)      -> pre(T, Env, L, Doc);
  after_nl([$[|T], Env, L, Doc)      -> note(T, Env, L, Doc);
  after_nl("____" ++ T, Env, L, Doc) -> hr(T, Env, L, Doc);
  after_nl(S=[$-|T], Env, L, Doc)    -> mk_list(S, Env, L, Doc);
  
negative.code: format(Str, F, Node) ->
      Env = #env{node=Node,f=F},
      Str1 = case Str of [$\n|_] -> Str; _ -> [$\n|Str] end,
      {Env1, Txt} = format_txt(Str1, Env, [], Str1),
      Txt.
  
  blank_line(S=[$\n|_]) -> {yes, S};
  blank_line([$\t|T])   -> blank_line(T);
  