r = foldr merge [] . map (\n -> map (*n) [1..])