compTwo :: Opts -> Lang -> Results -> Lang -> Results
compTwo os (la,fa) r (lb,fb) = mupd la lb (cosine fa fb) r
compTwo :: Opts -> Lang -> Results -> Lang -> Results
compTwo os (la,fa) r (lb,fb) = mupd la lb (cosine fa fb) r
compTwo os (la,fa) r (lb,fb) = mupd la lb (cosine fa fb) r