anchor.diff:    ?FORALL(Defun, defun_simple_doc(),
             begin
               {ok, #{doc := Doc}} = 'lodox-parse':'form-doc'(Defun),
  -            'lodox-p':'string?'(Doc)
  +            lists:nth(4, Defun) =:=  Doc
             end).
   
   
  
positive.code: 
  -define(TIMEOUT, 60).
  
  -define(OPTIONS, [{to_file, user}]).
  
  
  %%%===================================================================
  
negative.code: form() -> non_empty(list()).
  
  printable_char() -> union([integer(32, 126), integer(160, 255)]).
  
  %%%===================================================================
  %%% Internal functions
  %%%===================================================================
  
  pprint(_Format, [Defun]) when defun =:= hd(Defun) ->
    io:format(user, "~s~n", [pprint(Defun)]);
  pprint(Format, Data) ->
    io:format(user, Format, Data).
  
  pprint(Term) ->
    re:replace(lfe_io_pretty:term(Term), "comma ", ". ,",
               [global, {return, list}]).
  