Anonymous

zoom {
  var %x = 1
  while (%x <= $len($$1)) {
    $iif(%x == !,var %ecl = %x)
    $iif(%x == @,var %at = %x)
    inc %x
  }
  if (!$prop) {
    return $1
  }
  elseif ($prop == ident) {
    return $mid($1,%ecl,%at)
  }
  elseif ($prop == site) {
    return $mid($1,%at,$len($1))
  }
}