[Haskell-cafe] Haskell implementation of longest path algorithm