anchor.diff:  char_style(b, Env, L) when Env#env.f1 == false ->
       {Env#env{f1=true},reverse("<b>", L)};
   char_style(b, Env, L) when Env#env.f1 == true ->
  -    {Env#env{f1=false},reverse("<b>", L)};
  +    {Env#env{f1=false},reverse("</b>", L)};
   char_style(i, Env, L) when Env#env.f2 == false ->
       {Env#env{f2=true},reverse("<i>", L)};
   char_style(i, Env, L) when Env#env.f2 == true ->
  
positive.code: count_indent_levels([$-|T], N) -> count_indent_levels(T, N+1);
  count_indent_levels(T, N)      -> {N, T}.
  
  adjust_indents(Env, K, L) ->
      {Env, L};
  adjust_indents(Env, K, L) when Env#env.n > K ->
      adjust_indents(Env#env{n=Env#env.n-1}, K, reverse("</ul>", L));
  adjust_indents(Env, K, L) when K > Env#env.n ->
      adjust_indents(Env#env{n=Env#env.n-1}, K, reverse("<ul>", L)).
  
  clear_line(Env, L) when Env#env.f1==true ->
      clear_line(Env#env{f1=false}, reverse("</b>", L));
  
negative.code: 
  collect_mail(S=[$ |_], L)      -> {reverse(L), S};
  collect_mail(S=[$)|_], L)      -> {reverse(L), S};
  collect_mail(S=[$<|_], L)      -> {reverse(L), S};
  collect_mail(S=[$>|_], L)      -> {reverse(L), S};
  collect_mail(S=[$.,$ |_], L)   -> {reverse(L), S};
  collect_mail(S=[$.,$\n|_], L)  -> {reverse(L), S};
  collect_mail(S=[$.,$\r|_], L)  -> {reverse(L), S};
  