Explain what this haskell program is doing here.