flatten.red

flatten: func [
	"Remove new-line markers from block, paren or hash"
	blk [any-list!]
	/deep "remove the markers also from sub-blocks etc."
][
	new-line/all blk off
	if deep [
		forall blk [
			if block? blk/1 [flatten/deep blk/1]
		]
	]
]