Mode Undo

on *:mode:#rsprices:{
  var %undo $+(-,$iif(i isincs $1,i),$iif(m isincs $1,m),$iif(T isincs $1,T))
  if ($len(%undo) > 1) mode #rsprices %undo
}