s/mapAccumR/mapAccumL/