Save: Nothing
Input: Selected Text
Output: Replace Selected Text
Key: Ctrl-D

--
#!/usr/local/bin/rebol -q

REBOL [title: "Replace Value"]

system/options/binary-base: 64
set-modes system/ports/input [
	lines: false
	binary: false
]

prin either in*: copy system/ports/input [
	either not error? err*: try [out*: do in*][
		mold/all :out*
	][
		err*: disarm err*
		rejoin [
			" {^/** "
			system/error/(err*/type)/type ": "
			reform bind compose [(system/error/(err*/type)/(err*/id))] in err* 'self
			"^/** Near: " mold get in err* 'near
              "^/} "
		]
	]
][""]