foldPair :: (SentencePair -> Token -> Token -> a -> a) -> a -> SentencePair -> a
foldPair insfun cnt k@(f,e) = foldr (\x acc -> foldr (\y ac -> insfun k x y ac ) acc f) cnt e
foldPair :: (SentencePair -> Token -> Token -> a -> a) -> a -> SentencePair -> a
foldPair insfun cnt k@(f,e) = foldr (\x acc -> foldr (\y ac -> insfun k x y ac ) acc f) cnt e
foldPair insfun cnt k@(f,e) = foldr (\x acc -> foldr (\y ac -> insfun k x y ac ) acc f) cnt e