tidy up foldRightM