BEGIN				{ begin record wais }
/^From:/	BODY	/$/	{ data -element name $1 }
/^Subject:/	BODY	/$/	{ data -element title $1 }
/^Date:/	BODY	/$/	{ data -element dateOfLastModification $1 }
/^$/		BODY END	{
					begin element Body 
					data -text $1
					end record
				}
