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