\ inspired by Thinking Forth                           31oct04py                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                \ roman numbers                                        07aug10py                                                                Variable column#                                                : symbol ( off -- ) column# @ + s" IVXLCDM  " drop +  c@ hold ; : oner   ( -- )    0  symbol ;                                  : fiver  ( -- )    1  symbol ;                                  : almost ( q -- )  1+ symbol  oner ;                                                                                            : oners  ( n -- )  0 ?DO  oner  LOOP ;                          : digit ( digit -- )  5 /mod over 4 =  IF  almost drop            ELSE  swap oners  IF  fiver  THEN  THEN ;                     : #r  ( digit -- digit' )  10 /mod swap  digit  2 column# +! ;  : roman ( number -- )                                             column# off  <<# #r #r #r #r 0 #>  type #>> ;