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

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


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