Added Haskell code from lecture 19/11/14