set balance [join [list $leading $trailing] "."]
	set balance [string trimright $balance "."]

	set result [list $balance $baseUnit]

	return $result
}

proc ::nano::network::_read {fd bytes} {
	if {[chan configure $fd -blocking]} {
		tailcall ::read $fd $bytes
	}

	set data ""
	while {$bytes > 0} {
		set readData [read $fd $bytes]
		if {[string length $readData] == 0} {
			if {[eof $fd]} {
				break
			} else {
				update

				continue
			}
		}

		incr bytes -[string length $readData]
		append data $readData
	}

	return $data
}