/* derive simple spanning tree */ BEG_G { $tvtype = TV_dfs; $tvroot = node($,ARGV[0]);} E [!isSubnode($T,$.head) || !isSubnode($T,$.tail)]