#912 edit
   +----5----+----5----+----5----+----5----+----5----+----5----+---
 0 (experiments/passing-via-address-stack)
 1
 2 code: A
 3   'popopopo i 'popodupu i 'swpuswpu i 'swpuswpu i 'swpure.. i
 4   (--------------^^)
 5
 6 code: B
 7   'popopopo i 'popopodu i 'puswpusw i 'puswpusw i 'puswpusw i
 8   (----------------^^)
 9   'pure.... i
10
11 code: C
12   'popopopo i 'popopopo i 'dupuswpu i 'swpuswpu i 'swpuswpu i
13   (------------------^^)
14   'swpuswpu i 're...... i
15
   +----5----+----5----+----5----+----5----+----5----+----5----+---
   B:912/4095   S:0/32   M:12338/59999
n
   +----5----+----5----+----5----+----5----+----5----+----5----+---
 0 (experiments/passing-via-address-stack)
 1
 2 :foo (cba-)
 3   A n:put sp B n:put sp C n:put sp B n:put sp A n:put nl ;
 4 :test (-)
 5   #95 push #2 push #1 push foo pop pop pop drop drop drop ;
 6
 7
 8
 9
10
11
12
13
14
15
   +----5----+----5----+----5----+----5----+----5----+----5----+---
   B:913/4095   S:0/32   M:12338/59999