average (float array[], ulong length)                                          /* average (pfloat array', ...)        */
{                                                                              /* {                                   */
  ...                                                                          /*   float array[] = array';           */
}                                                                              /*   ...                               */
                                                                               /* }                                   */
