add Problem54A.hs