More haskell: group.hs is unfinished work.