;;erases all of the last dropped prop
{ {0 LOOSEPROP stpr = NBRLOOSEPROPS astp = 0 i =
      { {(astp 1-)i- REMOVELOOSEPROP}(astp 1-)i- LOOSEPROP stpr == If i++}{ i astp <} While } 0 ALARMExec 
"" CHATSTR = } CHATSTR "eraseprop2" == If