(let* ((set ((fileVal "Set") -))(Do ((fileVal "Do") 'Do))(add (set 'add)))
   (lambda (lm) (let ((Fs (set 'empty)))
  (Do lm (lambda (i) (Do i (lambda (j)
    (set! Fs (add (/ (+ j 1) (+ i 1)) Fs))))))
    ((set 'elements) Fs))))