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