Объединение двух списков в Haskell

Я нашел идеальное решение этой проблемы в Apple Text Layout Guide по программированию . Вот решение, которое предлагает Apple:

NSLayoutManager *layoutManager = [textView layoutManager];
unsigned numberOfLines, index;
unsigned numberOfGlyphs = [layoutManager numberOfGlyphs];
NSRange lineRange;

for (numberOfLines = 0, index = 0; index < numberOfGlyphs; numberOfLines++){
    (void) [layoutManager lineFragmentRectForGlyphAtIndex:index effectiveRange:&lineRange];
    index = NSMaxRange(lineRange);
}

Это можно легко записать в расширение для UITextView или в качестве автономного метода, принимающего объект UITextView в качестве параметра