movinav2(x_,v_)
Prgm
  If getType(x_)="STR" Then
    {}→list
    v_→p
    Return
  EndIf

  right(augment(list,{x_}),p)→list
  sum(list)/dim(list)→#v_
EndPrgm