def (mid3 n)
  withs (digits  (with outstring  # itoa
                   (pr abs.n))
         max  len.digits
         mid  (int max/2))
    if (and odd?.max (max >= 3))
      (digits mid-1 mid+2)