add Problem23.hs