clean up OrdList.hs a bit