1st lab Haskell