macro: (hex) ( "..." -- )
  @state [[ if  { base @ >r } ;then base @ >r ]] execute
  { hex } wsparse eval
  @state [[ if  { r> base ! } ;then r> base ! ]] execute  ;