#!/usr/bin/mumps

	for i=1:1:1000 do
	. read a
	. if '$test break
	. s ptid=$p(a,"#",1)
	. s prob=$p(a,"#",2)
	. s onset=$p(a,"#",3)
	. s resolv=$p(a,"#",4)
	. s dxphys=$p(a,"#",5)
	. set ^problems(ptid,onset,resolv,dxphys)=""

