RosettaCodeData/Task/Apply-a-callback-to-an-array/Forth/apply-a-callback-to-an-array-1.fth

: map ( addr n fn -- )
   -rot cells bounds do  i @ over execute i !  cell +loop ;