Speed up implementation of takeAroundPos
Speed up implementation of takeAroundPos

The previous implementation was very slow, scanning through each
character of the source.

Lewix/fsharp-refactor,Lewix/fsharp-refactor