Source PostScript (fuzapply.pps)

%% syntaxe [A2 .. an] [b1 .. bn] {f} fuzapply --> [f (A2,b1), .. f (an,bn)]
/fuzapply {
   /fct@ exch def
   /tab@2 exch def
   /tab@1 exch def
   /i 0 def
   [
   tab@1 length {
      tab@1 i get
      tab@2 i get
      fct@
      /i i 1 add store
   } repeat
   ]
} def