(define (all n lst)
  (if (= n 0) '(())
    (if (< n 0) '()
      (apply append (map (lambda (x) (map (lambda (y) (cons x y) ) (all (- n x) lst ) ) ) lst ) )
    )
  )
)


(all 3 '(1 2))