#!/bin/rc

{
	for(x in $*)
		tag/read $x | sort -u
} | awk '
	{
		x[$0]++
	}

	END {
		for(i in x) {
			if(x[i] == '$#*')
				print(i)
		}
	}
' | tag/sort