: (again) ( start-n action-quot -- ) over [ [ [ dup , ] dip call( n quot -- x ) ] keep (again) ] [ 2drop ] if ;