Calculate initial documents by taking intersection

Should be re-written as a fold of Data.List.intersect