#*******************************************************
proc domainClass::prefix {} {
 return {dom identifier identifier}
}
proc dict::dom_ph_type {dom args} {
     set dom_id [$dom IDENTIFIER]
     return [_dom_ph_type $dom_id]
}
