<@6> <@local(ps,name,switch,nclose)> <@> <$name = argv#0> <$ps = v.load_plgset(name)> <$switch = ps.switch)> <$nclose = ps.nclose> <$notag_arts = argv#2> <@> <@>--------------------------------------------------------------------- <@>再帰サブルーチン <@>--------------------------------------------------------------------- <$sub = begin.function> <@local(t, tid, p, node, tree, depth, x)> <$node = argv#0> <$tree = node.children> <$depth = argv#1><@>prefix <$p = "\t" %x depth> <@p> <$end.function> <@>--------------------------------------------------------------------- <@>タグリスト <@>--------------------------------------------------------------------- <@exec(sub, argv#1, 0)>