module tree

import StdEnv

import Data.Maybe, Data.List
from Data.Func import $

import System.CommandLine, System.GetOpt

import Smurf
import SmurfParse

Start = toString devtree
where
	(Just devtree) = tree pgm zero zero listIO
	(Just pgm) = parse ['"abc""123"+o']