alias yetkibul {
  if ($operbul($2) == 1) { return 1 }
  if (!$2) {
    var %h = 1, %htop = $hget(0)
    while (%h <= %htop) {
      if ($hfind($hget(%h),$+(*.,$1),0,w)) { return 1 }
      inc %h 1
    }
    if ($operbul($1) == 1) { return 1 }
    else { return 0 }
  }
  if ($hget($1,$+(op.,$2))) { return 1 }
  else { return 0 }
}
alias yetkiara {
  if (!$1) { halt }
  var %h = 1, %htop = $hget(0)
  while (%h <= %htop) {
    if ($hfind(%h,$+(*.,$1),0,W)) { return 1 }
    inc %h 1
  }
  if ($operbul($1) == 1) { return 1 }
  else { return 0 }
}
alias yetkisil {
  if (!$1) { halt }
  var %h = 1, %htop = $hget(0)
  while (%h <= %htop) {
    if ($hfind(%h,$+(*.,$1),0,w)) { 
      hdel $hget(%h) $+(op.,$1)
    }
    inc %h 1
  }
}