Problem 61: Implement 'takeFourDigits :: [Integer] -> [Integer]'
Problem 51: Replace custom flatten function with standard concat function
Problem 61: Generate all four-digit figurate numbers