express encryptCBC in terms of mapAccumL