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