macro nn_org chopt=colz
	 
	 HID = $exec(kumac/read_cid)
	 HID = [HID] + 1
	 exec h_org [HID] [chopt]
	 
 return