Added another Haskell function to Lab 1.