RosettaCodeData/Task/Apply-a-callback-to-an-array/Pop11/apply-a-callback-to-an-array.pop11

;;; Define a procedure
define proc(x);
    printf(x*x, '%p,');
enddefine;

;;; Create array
lvars ar = { 1 2 3 4 5};

;;; Apply procedure to array
appdata(ar, proc);