( ext DAY 05.04.2001 )

: .R ( n1 n2 -- ) \ 94 core ext
  >r dup >r abs
  s>d <# #s r> sign #>
  r> over - 0 max spaces type
;

: U.R ( u n -- ) \ 94 core ext
  >r  s>d <# #s #>
  r> over - 0 max spaces type
;