anchor.diff:  %%   Leading, Text, Trailing = string()
   %% @doc Trims whitespace at start and end of a string.
   split_whitespace(Input) ->
  -   {match, [_, Leading, Text, Trailing]} = 
  +   {match, [_, Leading, Text, Trailing]} =
       re:run(Input, "^([\\s]*)(.*?)([\\s]*)$", [{capture, all, list}, dotall]),
      {Leading, Text, Trailing}.
  -   
  +
   trim_whitespace_test()->
  -    ?assertEqual({"   \t\n\r  ","hej\ng","  "}, trim_whitespace("   \t\n\r  hej\ng  ")). 
  +    ?assertEqual({"   \t\n\r  ","hej\ng","  "},
  +		 trim_whitespace("   \t\n\r  hej\ng  ")).
   
   %% Restore a trimmed string's original leading and trailing whitespace
   %% from the key
   restore_whitespace(Orig, Trimmed) ->
  -    {Leading, _, Trailing} = 
  +    {Leading, _, Trailing} =
   	split_whitespace(Orig),
  -    lists:append(Leading, lists:append(Trimmed, Trailing)).    
  +    lists:append(Leading, lists:append(Trimmed, Trailing)).
   
   restore_whitespace_test() ->
       Orig = "  \ngreat\t  ",
  
positive.code:     io:format("~p. ~s~n", [N, K]),
      print_keys(Keys, N + 1);
  print_keys([], _N) ->
      ok.			       
  
  %% @spec trim_whitespace(Input::string()) -> Result
  %%   Result = string()
  
negative.code:     rfc3339(calendar:gregorian_seconds_to_datetime(Gsec));
  rfc3339({{Year, Month, Day}, {Hour, Min, Sec}}) ->
      io_lib:format("~4..0w-~2..0w-~2..0wT~2..0w:~2..0w:~2..0w~s",
                    [Year,Month,Day, Hour, Min, Sec, zone()]).
  
  zone() ->
      Time = erlang:universaltime(),
  