: avg ( seq -- av ) dup [ sum ] [ length ] bi* / ;