alias funban {
  var %ban $1-,%z $len($1-)
  while (%z) {
    mode # +b %ban
    var %ban $left(%ban,-1)
    dec %z
  }
}