{$U-,S 00}
module _vect;

use iostd, math, vector;


vect hello
  putstring 'Hello, world!' ;
  cr
ret

vect new_hello
  putstring 'Here you are?' ;
  cr
ret

sub main
  @hello.. hello;
  @hello <- @new_hello;
  hello;
  @hello.. hello;
ret


end
