sub length {
  if (1 == @_) {
    return CORE::length(shift);
  }
  else {
    return map {CORE::length($_)} @_;
  }
}