Negative base numbers: Difference between revisions

[ /mod ] keep '[ [ 1 + ] [dip _ abs + ] bi* ] when-negative ;