add Problem61A.hs