sub ind {
  $i = shift;
  if ($i <= $#b1) {
    return (\$b1[$i])
  } else {
    return (\$b2[$i-$#b1-1]) 
  }
}