import Control.Applicative
import Data.Monoid

items = [10, 100, 1000]
payments = foldr1 (\xs ys -> mappend <$> xs <*> ys) $ (\a -> [Sum a, mempty]) <$> items