[tmtvl]

Common Lisp, paragon of FP:

  (loop for x across numbers
        when (evenp x)
          do (setf result (+ result x)))

I mean yeah, you can do FP in CL, but it allows you to program in any paradigm which you prefer.