#!/usr/bin/env /friends/bin/postscript

/map {
 [ 3 1 roll forall ]
} bind def


[ 1 2 3 ] ==
[ 1 2 3 ] dup { dup 2 mul } map == ==