identification division.
       program-id. kw147.
      * aus Kowalk - Korrekte Software
      * p. 147 ff
       author. Jens.
       date-written. 5.1.2009 korr. 25.6.2012.
       date-compiled.
       data division.
       working-storage section.
       77 aux    pic 9(4).
       77 i      pic 9(4).
       linkage section.
       77 n      pic 9(4).
       77 a      pic 9(4).
       77 c      pic 9(4).
       77 v      pic 9(4).
       procedure division using a n c returning v.
         move 1 to aux
         move a to i
         perform until i>n
           multiply function f(i) by aux
           add c to i
          end-perform
          move aux to v
        end-program kw147.