; Proposed spec of TRANSCODE with part option added:
transcode: native [
	"Translates UTF-8 binary source to values. Returns [value binary]."
	source [binary!] "Must be UTF-8 encoded"
	/part length [binary! integer!] "Length of source to decode"
	/next "Translate next complete value (blocks as single value)"
	/only "Translate only a single value (blocks dissected)"
	/error "Do not throw errors - return error object as value in place"
]

; For this example data:
>> s: to-binary {rebol [] print "Hello!" stuff after the script}
== #{
7265626F6C205B5D207072696E74202248656C6C6F2122207374756666206166
7465722074686520736372697074
}

; Code required now if you use to block!:
>> d: to block! copy/part s 23  ; note the copy overhead here
== [rebol [] print "Hello!"]
>> e: skip s 23
== #{2073747566662061667465722074686520736372697074}

; Code required now if you use transcode:
>> d: head clear back tail transcode copy/part s 23  ; still copy overhead
== [rebol [] print "Hello!"]
>> e: skip s 23
== #{2073747566662061667465722074686520736372697074}

; Yes, the clear back tail stuff is dumb, see #1916.

; Code required if you use the proposed transcode/part:
>> d: transcode/part s 23  ; no copy overhead here
== [rebol [] print "Hello!" #{2073747566662061667465722074686520736372697074}]
>> e: last d
== #{2073747566662061667465722074686520736372697074}
>> head clear back tail d
== [rebol [] print "Hello!"]

; Still has the stupid API clear back tail problem (see #1916), but at least it doesn't have the copy overhead anymore.