Updated lists.hs