# include <stdio.h>
/** emfanisi mono ton kefalaion grammaton apo arxeio keimenou **/


int main()
{
	
	char filename[100];
	FILE *fp;
	char ch;
	printf("Doste onoma arxeiou ?\n");
	gets(filename);
	fp=fopen(filename,"r");
	if(fp==NULL)
	{
		printf("To arxeio %s den yparxei i den mporeite na to diabasete \n",filename);
	}
	else
	{
		while((ch=fgetc(fp))!=EOF)
		{
			if(ch>='A' && ch<='Z') 
				printf("%c",ch);
		}
		printf("\n");
		fclose(fp);
	}
	return 0;
}