: maximum ( seq quot -- elt )
    [ max ] map-reduce ; inline

: minimum ( seq quot -- elt )
    [ min ] map-reduce ; inline

: average ( seq -- n )
    [ sum ] [ length ] bi / ;