.>p
.,#(*(<p))$<dmp_end_dmp_nodes
*(<p)$<<dmp_dmpnode
0>D
./n"---------printing paths of this dmp node-------------"n
*((*(<p))+0t4)>N
*((*(<p))+0t88)>R
0>C
.$<<dmp_dmpnode_path_next
./n"---------done printing paths of this dmp node-------------"n
/"DMP node total iocount"n
/"----------------------"n
<D=X
(<G+<D)>G
/"-------------------------------------------------------------"n
(<p+4)$<dmp_dmpnode_next
