anchor.diff:  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}]).
  
positive.code: 
  -define(TIMEOUT, 60).
  
  -define(OPTIONS, [{to_file, user}]).
  
  
  %%%===================================================================
  
negative.code:   ?FORALL(Defun, defun_simple_doc(),
            begin
              {ok, #{doc := Doc}} = 'lodox-parse':'form-doc'(Defun),
              lists:nth(4, Defun) =:=  Doc
            end).
  
  
  