RosettaCodeData/Task/Apply-a-callback-to-an-array/Lang5/apply-a-callback-to-an-array.lang5

: square(*)  dup * ;
[1 2 3 4 5] square        . "\n" .
[1 2 3 4 5] 'square apply . "\n" .