add listing5.hs