what about trying it in saturn asm ;) ><< -> a << 0 DO 1 + UNTIL DUP a * DUP IP == END DUP a * SWAP >> >>