; coprime numbers

(define (f lo hi)
  (cond ((and (even? lo) (< 1 (- hi lo)))
          (list lo (+ lo 1) (+ lo 2)))
        ((and (odd? lo) (< 2 (- hi lo)))
          (list (+ lo 1) (+ lo 2) (+ lo 3)))
        (else "No solution")))

(display (f 2 4)) (newline)
(display (f 10 11)) (newline)
(display (f 900000000000000009 900000000000000029)) (newline)