DEFINE bin == "" [pop 1 >] [[2 div "01" of] dip cons] while ["01" of] dip cons.

[0 1 2 5 50 9000] [bin] map put.