haskell labb 1 uppg1 & 2