add listing9.hs