puts [DT_ClosedSplit result a]
puts [checkshape result]
