[Haskell-cafe] An Haskell implementation of a sweep line algorithm for the detection of segments intersection