[Haskell-cafe] List algorithm