1st and 2nd in haskell