anchor.diff:  convert(<<" #", Rest/binary>>, State = #{state       := Tag,
                                            currToken   := CT,
                                            soFar := Html})
  -    when (Tag == h6) or (Tag == h5) or (Tag == h4) or
  -         (Tag == h3) or (Tag == h2) or (Tag == h1) ->
  +  when (Tag == h6) or (Tag == h5) or (Tag == h4) or
  +       (Tag == h3) or (Tag == h2) or (Tag == h1) ->
       case headerEnd(Rest) of
           {true, Rest2} ->
               convert(<<Rest2/binary>>, State#{state     := Tag,
  
positive.code:                 currToken := CT,
                  prevLine  := <<>>,
                  soFar     := Html})
      when (Tag == h6) or (Tag == h5) or (Tag == h4) or
           (Tag == h3) or (Tag == h2) or (Tag == h1) ->
      BinTag = makeTag(Tag, CT),
      <<Html/binary, BinTag/binary>>;
  convert(<<>>, #{state     := Tag,
                  currToken := CT,
                  prevLine  := LL,
                  soFar     := Html})
      when (Tag == h6) or (Tag == h5) or (Tag == h4) or
           (Tag == h3) or (Tag == h2) or (Tag == h1) ->
      BinTag = makeTag(Tag, CT),
      <<Html/binary, LL/binary, ?brTag, BinTag/binary>>;
  
  
negative.code: %% Parse header paragraf text
  convert(<<Char:8, Rest/binary>>, State = #{state     := Tag,
                                             currToken := CT})
    when (Tag == h6) or (Tag == h5) or (Tag == h4) or
         (Tag == h3) or (Tag == h2) or (Tag == h1) ->
      convert(Rest, State#{currToken := <<CT/binary, Char:8>>});
  
  %% Paragraf text ending
  