[Haskell-cafe] line intersection code