reduce f lst init:
	if lst:
		f reduce @f lst init pop-from lst
	else:
		init

!. reduce @+ [ 1 10 200 ] 4
!. reduce @- [ 1 10 200 ] 4