•$Pre

     Clear[$Pre, $PreRead, Hundred] ;

     $Pre = Function[expr, Unevaluated[expr] /. (100 -> Hundred), 
      
          {HoldAll}] ;

          35
     Sqrt[--- + 1]
          100

                35
     Sqrt[1 + -------]
              Hundred

     $Pre =.

Converted by Mathematica  (October 7, 2002)
Tricks Index page | Mathematica Notebook version | Verbeia.com Mathematica Home