alias relsm {@ args = [$0-]
            @ num = ret.num($args)
            if (num > lsm) {@ num = lsm}
            @ act = ret.act($args)
            @ stk = ret.stk($args)
            if (stk == 1) {
              for (@ i = (lsm - num), i <= lsm, @ i++) {
                if (match($act -kb -k -m -y)) {
                  @ nic = ret.nick($args)
                  rel.exec $act $nic $ret.lsm(${i})
                }{ 
                  rel.exec $act $ret.lsm(${i})
                }
              }
            }{
              if (match($act -kb -k -m -y)) {
                @ nic = ret.nick($args)
                rel.exec $act $nic $ret.lsm(${lsm - num})
              }{ 
                rel.exec $act $ret.lsm(${lsm - num})
              }
            }
           }
