HP 48G - Edit List

[MNH]

@ { 11 12 13 14 } → { 11 12 14 }
@ Delete the object in position 3 and return a list in original order.
@ ELIST (Edit list)

\<< { 11 12 13 14 }
13 \-> list object
\<< list DUP object
POS SWAP OBJ\-> 1 +
ROLL ROLLD DROP
SWAP DEPTH \->LIST
\>>
\>>

Can I make this program better? I have not tested it on other lists. I would like to be able to delete an object in any position in any list, regardless of the order of the objects.