builtup4/std/binary/double.bu4

{ (b)                 </[b]/[0][b!]>        | b_double }
{ (b)         </ <(zq)(lb)(hb!) [hb!]> [b]> | b_halve  }