concat_fopen (char *s1, char *s2, char *mode)
{
char str[/*strlen (s1) + strlen (s2) + */1];
strcpy (str, s1);
strcat (str, s2);
return fopen (str, mode);
}