(:macro dict-key ( x )
        (':str-cat x ":"))

(:macro yot ( x )
        x)

(:macro tree ( a b )
        (':reduce-cat a "\n" b))

(:macro c-paren-eval (x)
        (':c-not (':c-colon-id x)))

(:macro @ ( (x(:c-paren-eval _)) .. tl )
        (':reduce-cat x tl ))

(:macro reduce-cat ( x )
        x)

(:macro reduce-cat ( x .. tl )
        (':str-cat x
         (':reduce-cat tl)))

(:macro ocfg ( )
        "")
(:macro ocfg ( x )
        x)
(:macro ocfg ( x .. tl )
        (':tree x (':ocfg tl)))

(:macro indent ( x )
        (':str-cat "  " x))