! Silly test case:

  MACRO: test-a ( a -- quot ) drop [| a | a ] ;

  [| | 10 test-a ]