[Closed] Deleting Node User-Defined Properties – How To?

There is no easy way to delete user defined prop in MXS as I know…
Here is my version:

fn deleteUserProp node prop = if getUserProp node prop != undefined do
(
 buff = (getUserPropBuffer node) as stringStream 
 newb = stringStream ""
 while not eof buff do
 (
  str = readLine buff
  if str != "" and not matchpattern str pattern:("*" + prop + "*=*") do format "%
" str to:newb
 )
 setUserPropBuffer node (replace_LF_with_CRLF (newb as string))
)