Перевод арабских чисел в римские

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
 
#define MAX_RIM 3999
 
void fprint_rim(FILE *, char *, int);
 
int main (int argc, char *argv[])
{
    int num;
    char buf[BUFSIZ];
 
    fprintf(stdout, "\nVvedite chislo: ");
    while (fgets(buf, BUFSIZ, stdin) != NULL)
    {
        num = atoi(buf);
        if (num < 1 || num > MAX_RIM)
            fprintf(stderr, " Chislo dolzhno byt' ot 1 do %d!", MAX_RIM);
        else
            fprint_rim(stdout, "Po rimski: ", num);
        fprintf(stdout, "\n\nVvedite chislo: ");
    }
    return 0;
}
 
void fprint_rim(FILE *stream, char *pstr, int chislo)
{
    const int   znc[13] = {1000,  900, 500,  400, 100,   90,  50,   40,  10,    9,   5,    4,  1 };
    const char *zns[13] = { "M", "CM", "D", "CD", "C", "XC", "L", "XL", "X", "IX", "V", "IV", "I"};
    int i;
 
    fprintf(stream, pstr);
    for (i = 0; i < 13; i++)
    {
        while (chislo - znc[i] >= 0)
        {
            chislo -=znc[i]; // ~ chislo=chislo-znc[i];
            fprintf(stream, "%s", zns[i]);
        }
    }
    return;
}