Seems unexpectedly slow when diffing highly divergent text

[ddssff]

For example, try getDiff (take 10000 (repeat 'a')) "" - it takes quite a while and returns (replicate 10000 (First 'a')).