to buriednames

op item 2 buried

end

to buriedproc

op first buried

end

to buriedprop

op last buried

end

to buryname :varname

if wordp :varname [localmake "varname (list :varname)]

bury (list [] :varname [])

end

to buryproc :procname

if (wordp :procname) [localmake "procname (list :procname )]

bury (list :procname [] [])

end

to buryprop :propname

if wordp :propname [localmake "propname (list :propname)]

bury (list [] []:propname)

end

to unburyname :varname

if wordp :varname [localmake "varname (list :varname)]

unbury (list [] :varname [])

end

to unburyproc :procname

if (wordp :procname) [localmake "procname ( list :procname)]

unbury (list :procname [] [])

end

to unburyprop :propname

if wordp :propname [localmake "propname (list :propname)]

unbury (list [] []:propname)

end