.>p
.,#((<k))$<dmp_end_dmp_nodes
.,#(*(<p))$<<dmp_skip_dmp_nodes
*(<p)$<<dmp_dmpnode
0>D
./n"---------printing paths of this dmp node-------------"n
*((*(<p))+0t8)>N
*((*(<p))+0t128)>R
0>C
.$<<dmp_dmpnode_path_next
./n"---------done printing paths of this dmp node-------------"n
/n"-------iocounts on this dmpnode----------"n
(<D)=X
/n"-----------------------------------------"n
(<G+<D)>G
(<k-1)>/l/k
(<p+8)$<dmp_dmpnode_next
