[ $ "bigrat.qky" loadfile ] now!

  [ $->v drop
    2dup vabs 10 vsqrt drop
    2swap 2dup 2dup
    v* v* 5 n->v v* v+ ]           is function ( $ --> n/d )

  [ $ "Please enter 11 numbers: "
    input nest$
    reverse
    witheach
      [ function
        400 n->v 2over v< iff
          [ 2drop say "overflow" ]
        else
          [ 7 point$ echo$ ]
        sp ]
    cr ]                           is task     (   -->     )