g_parse()
set Dem_input "demeter-input"
set iC [C new:]
$iC g_parse: $Dem_input
g_draw()
$iC g_draw:
g_print()
$iC g_print:
g_displayAsTree()
$iC g_displayAsTree:
g_copy()
set nC [$iC g_copy:]
activate $nC C
g_equal()
set result1 [$iC g_equal: $nC ]