1package require struct::tree 2package require fileutil 3 4struct::tree T 5fileutil::writeFile in-vt/0_root_label [T serialize] 6T set root label L 7fileutil::writeFile in-vt/1_root_title [T serialize] 8T set root title T 9T insert root end K 10fileutil::writeFile in-vt/2_keyword_label [T serialize] 11T set K label L 12T insert K end R 13fileutil::writeFile in-vt/3_ref_type [T serialize] 14T set R type foo 15fileutil::writeFile in-vt/4_ref_label [T serialize] 16T set R label L 17fileutil::writeFile in-vt/5_ref_ref [T serialize] 18T set R ref X 19fileutil::writeFile in-vt/6_ref_tag [T serialize] 20T set R type url 21T insert R end OVER 22fileutil::writeFile in-vt/7_depth [T serialize] 23exit 24