(use '[clojure.string :only (split-lines)]
	 '[clojure.set :only (intersection)])

(->> split-lines (slurp *in*)
	 rest
	 (map set)
	 (apply intersection)
	 count
	 println)