Increment all elements in list with foldRight