(define (odd-sum-triplets max)
  (filter
    (lambda (x) (> (caddr x) max))
    (map
      (lambda (couple) (list (car couple) (cadr couple) (+ (car couple) (cadr couple))))
      (flatten
        (map
          (lambda (i)
            (map
              (lambda (j) (list i j))
              (filter
                odd?
                (enumerate-int 1 max))))
          (filter odd? (enumerat 1 max)))))))