Listing 3 Listing 3:

#########################################
define veclen
  set $veclen = $arg0.finish - $arg0.start
end

document veclen
Set the variable $veclen to the length of the vector
end

#########################################
define pveclen
  veclen $arg0
  output $veclen
  echo \n
end

document pveclen
Print the length of a vector
end