Define map in the fewest tokens
Mathematica, 36 11 nodes

Thread@#@#2&amp;


The FullForm of this program is:

Function[Thread[Slot[1][Slot[2]]]]


which has 4 symbols, 2 numbers, and 5 function applications.