/avg {
    dup length
    {0 gt} {
       exch 0 {add} fold exch div
    } {
        exch pop
    } ifte
}.