Удвоить каждую букву в слове

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <malloc.h>
#include <ctype.h>
#include <locale.h>
size_t count_alpha(const char* s);
char*  copy_alpha(const char* s);
 
int main(void){
    char* p;
    char  s[] = "PHP, LISP, JAVA, go FORTH, xml";
 
    setlocale(LC_ALL, "rus");
 
    if((p = copy_alpha(s)) != NULL){
        puts(p);
        free(p);
    }
    getchar();
    return 0;
}
 
//Удвоить каждую букву в слове
char* copy_alpha(const char* s){
    char*  p, *i;
    size_t n = count_alpha(s);
    if(!n)
        return NULL;
 
    n += strlen(s);
    p  = (char*)malloc((n + 1) * sizeof(char));
    if(p == NULL)
        return NULL;
 
    for(i = p; *s; ++s){
        if(isalpha((unsigned char)*s))
            *i++ = *s;
        *i++ = *s;
    }
    *i = '\0';
    return p;
}
 
//подсчёт букв в строке
size_t count_alpha(const char* s){
    size_t n = 0;
    while(*s){
        if(isalpha((unsigned char)*s++))
            ++n;
    }
    return n;
}