RosettaCodeData/Task/Apply-a-callback-to-an-array/PL-I/apply-a-callback-to-an-array.pli

   declare x(5) initial (1,3,5,7,8);
   x = sqrt(x);
   x = sin(x);