.macro data(params...)
.start:
.foreach item in data
	.if item === ~ ; remaining words in statement
		.start:
		.dat end - start
	.else
		.dat item
	.endif
.end
.end:
.endmacro

data(~, "pascal string")