`vtol'
------

vtol(VECT)
     :: $B%Y%/%H%k$r%j%9%H$KJQ49$9$k(B.

RETURN
     $B%j%9%H(B

VECT
     $B%Y%/%H%k(B

   * $BD9$5(B N $B$N%Y%/%H%k(B VECT $B$r(B  `[VECT[0],...,VECT[N-1]]'
     $B$J$k%j%9%H$KJQ49$9$k(B.

   * $B%j%9%H$+$i%Y%/%H%k$X$NJQ49$O(B `newvect()' $B$G9T$&(B.

     [3] A=newvect(3,[1,2,3]);
     [ 1 2 3 ]
     [4] vtol(A);
     [1,2,3]

$B;2>H(B
     *Note `newvect': newvect.

