add Problem28.hs