[ $ "bigrat.qky" loadfile ] now!

  [ do over -
    2swap
    do over -
    unrot
    dip [ $->v drop ]
    n->v v-
    rot n->v v/
    rot n->v v*
    rot n->v v+ ]     is maprange ( $ [ [ --> n/d )

  $ "0 1 2 3 4 5 6 7 8 9 10"
  nest$
  witheach
    [ dup echo$ say " maps to "
      ' [ 0 10 ] ' [ -1 0 ] maprange
      7 point$ echo$ cr ]