first haskell algos