
: &$	
		#  structure we are building...........	
		##     a	   b    c    d          e f
postpone  sub 	##    |sub |    |    |                 . |    |
		#---------------------------------------------
dp 		# (P &dp)			
p@ 		# (P b)
p->r 		# (R b)         
		##     a    b    c    d                 e f
&p 		##    |sub |junk|    |                 . |    |
		#----------------------------------------------
dp 		# (P *c) 	(R b)
p@ 		# (P c ) 	(R b)
pdup		# (P c c)	(R b)
pdup 		# (P c c c)	(R b)
p+c 		# (P c c d)	(R b)
		##     a    b    c    d	               e f
24 delimit drop	##    |sub |junk|    |$-delimited stuff. |    |
		#----------------------------------------------	
		# (P c c d)  (count)	(R b)
p+ 		# (P c c e)  ()	(R b)		
pswap 		# (P c e c)	(R b)	
		##     a    b    c    d                 e f
p!		##    |sub |junk|  e |$-delimited stuff. |    |
		#---------------------------------------------- 	
pdrop 		# (P c e)	(R b)
align 		# (P c f)	(R b)
pswap 		# (P f c) 	(R b)
		##     a    b    c    d                 e f
p!		##    |sub |junk|  e |$-delimited stuff. |    |
 		#----------------------------------------------
pdrop  		# (P f)		(R b)
r->p 		# (P f b)	(R)
		##     a    b    c    d                 e f
p!  		##    |sub | f  |  e |$-delimited stuff. |    |
		#-----------------------------------------------
		# (P f b)	
pdrop		# (P f)
dp		# (P f dp)
p!		# (P f dp)      dp now contains f for postpone
2pdrop		# (P)
		##     a    b    c    d		       e f
postpone  r->p  ##    |sub | f  |  e |$-delimited stuff. |r->p|		
		#----------------------------------------------
true		#   (true)
;		

' &$ threader

