alias _banac {
  var %:ibo = 1
  while %:ibo <= $ibl($1,0) {
    if $calc($ctime - $ibl($1,%:ibo).ctime) >= 900 {
    .mode $1 -b $ibl($1,%:ibo) } 
    inc %:ibo
  }
}

alias _banac {
 %senk = $ibl($1,0), %yep = $calc($ibl($1,0) - 12) 
  while %senk >= %yep {  

      %total = $addtok(%total,$ibl($1,%senk),32)  
      dec %senk 
    } 

  while %total { 
    mode $1 $+(-,$str(b,12)) $token(%total,1-13,32)
   %total = $deltok(%total,1-13,32)   
  }
}