REBOL[]while[d: do input][h: to-hex d while[h < #1][remove h]print h]