DIM array(9)
      array() = 1, 2, 3, 4, 5, 6, 7, 8, 9, 10

      PRINT FNrms(array())
      END

      DEF FNrms(a()) = MOD(a()) / SQR(DIM(a(),1)+1)