[ $ "bigrat.qky" loadfile ] now!

  [ mod not ]                   is v-is-num (    n/d --> b )

  [ 1+ dip [ proper rot drop ]
    10 swap ** round v-is-num ] is approxint ( n/d n --> b )