[Haskell-cafe] Solving a geometry problem with Haskell