(defun dopopactions (regs expr hold star)
	(apply
		(lambda 
			(cons 'star (cons 'hold (car regs)))
			(list
				(list 
					(quote (car regs))
					(list (car regs))
				)
				 hold
			)
		)
		(cons star (cons hold (cadr regs)))
	)
)