BEGIN{FS=","}
{print}
/#/{next}
{for(I=2;I<=NF;I++) {(Data[I,0]++); Data[I,Data[I,0]]=$I }}
END{
	printf("#---")l
	for(I=2;I<=NF;I++) 
			printf(",-----")
	print ""
	printf("#median");
	for(I=2;I<=NF;I++) {
		Max=Data[I,0];
		delete Val
		N=0;
		for(J=1;J<=Max;J++) 
			Val[J]  = Data[I,J]
		asort(Val);
		printf(",%s",Val[int(Max/2)]);
	}
	print ""
	print "#"
}