##	shared	Dt
##	char	*farbe;
amx(argc, argv)
int	argc;
char	**argv;
{
	farbe = (argc == 1)? "grau": argv[1];
##	open Teile
##	retrieve Teile $Farbe == farbe { print ($Tname, $Farbe) }
##	close Teile
	fflush(stdout);
}