anchor.diff:          [] ->
               find_type(TailTypes, KnownTypes);
           [{RealType, _, _} | _] ->
  -            io:format("Das found:  ~p\n", [RealType]),
               RealType
       end.
   
  
positive.code: 	      fun ({enum,C,D}, TmpAcc) -> [{enum, [list_to_tuple([C | LN]) || LN <- ListName], D} | TmpAcc];
  		  (_, TmpAcc) -> TmpAcc
  	      end, [], Fields),
      io:format("The enums:  ~p\n", [Enums]),
      
      Extensions = lists:foldl(
  		   fun ({extensions, From, To}, TmpAcc) -> [{From,To}|TmpAcc];
  
negative.code: type_path_to_type(TypePath) when is_tuple(TypePath) ->
      type_path_to_type(tuple_to_list(TypePath));
  type_path_to_type (TypePath) ->
      case is_list(hd(TypePath)) of
          true ->
              string:join (lists:reverse (TypePath), "_");
  