output.red

[datatype! ": "]
error
[unset! ": "]
error
[none! ": "]
error
[logic ": "]
error
[char ": "]
error
[float ": "]
error
[get-word ": "]
errorerrorerror
[set-word ": "]
error
[lit-word ": "]
error
[refinement ": "]
error
[issue ": "]
error
[native! ": "]
error
[action! ": "]
errorerror
[op! ": "]
error
[function! ": "]
error
[routine! ": "]
error
[bitset ": "]
none
[percent ": "]
error
[tuple ": "]
error
[map ": "]
none
[time ": "]
error
[percent ": "]
error

path-error.red

print-name: func [something] [probe reduce [something  ": "]]
print-name 'datatype!
bl-datatype: compose/deep [(string!) [(block!) 'ok] ] ()
either error? e: try [bl-datatype/(string!)/(block!)] [print 'error] [probe e]

print-name 'unset!
bl-unset: compose/deep [(do []) [(do []) 'ok] ] ()
either error? e: try [bl-unset/(do [])/(do[])] [print 'error] [probe e]

print-name 'none!   
bl-none: compose/deep [(do []) [(do []) 'ok] ] ()
either error? e: try [bl-none/(do [])/(do[])] [print 'error] [probe e]

print-name 'logic
bl-logic: [true [false 'ok]] ()
either error? e: try [bl-logic/(true)/(false)] [print 'error] [probe e]

print-name 'char
bl-char:  [#"a" [#"b" 'ok] ] ()
either error? e: try [bl-char/(#"a")/(#"b")] [print 'error] [probe e]

print-name 'float
bl-float: [3.14 [2.7 'ok] ] ()
either error? e: try [bl-float/(3.14)/(2.7)] [print 'error] [probe e]

print-name 'get-word
bl-get-word: compose/deep [(to-get-word 'a) [(to-get-word 'b) 'ok] ] ()
either error? e: try [bl-get-word/(to-get-word 'a)/(to-get-word 'b)] [print 'errorerrorerror] [probe e]

print-name 'set-word
bl-set-word: compose/deep [(to-set-word 'a) [(to-set-word 'b) 'ok] ] ()
either error? e: try [bl-set-word/(to-set-word 'a)/(to-set-word 'b)] [print 'error] [probe e]

print-name 'lit-word
bl-lit-word: compose/deep [(to-lit-word 'a) [(to-lit-word 'b) 'ok] ] ()
either error? e: try [bl-lit-word/(to-lit-word 'a)/(to-lit-word 'b)] [print 'error] [probe e]

print-name 'refinement
bl-refinement: [/a [/b 'ok] ] ()
either error? e: try [bl-refinement/(/a)/(/b)] [print 'error] [probe e]

print-name 'issue
bl-issue: [#aaa [#bbb 'ok] ] ()
either error? e: try [bl-issue/(#aaa)/(#bbb)] [print 'error] [probe e]

print-name 'native!   
bl-native: compose/deep [(:not) [(:any) 'ok] ] ()
either error? e: try [bl-native/(:not)/(:any)] [print 'error] [probe e]

print-name 'action!   
bl-action: compose/deep [(:write) [(:read) 'ok] ] ()
either error? e: try [bl-action/(:write)/(:read)] [print 'errorerror] [probe e]

print-name 'op!   
bl-op: compose/deep [(:+) [(:-) 'ok] ] ()
either error? e: try [bl-op/(:+)/(:-)] [print 'error] [probe e] [probe e]

print-name 'function!   
bl-function: compose/deep [(:sin) [(:cos) 'ok] ] ()
either error? e: try [bl-function/(:sin)/(:cos)] [print 'error] [probe e]

print-name 'routine!   
bl-routine: compose/deep [(:as-color) [(:as-rgba) 'ok] ] ()
either error? e: try [bl-routine/(:as-color)/(:as-rgba)] [print 'error] [probe e]

print-name 'bitset
bl-bitset: [#{00} [#{11} 'ok] ] ()
either error? e: try [bl-bitset/(#{00})/(#{11})] [print 'error] [probe e]

print-name 'percent
bl-percent: [10% [42% 'ok] ] ()
either error? e: try [bl-percent/(10%)/(42%)] [print 'error] [probe e]

print-name 'tuple
bl-tuple: [1.1.1 [2.2.2 'ok] ] ()
either error? e: try [bl-tuple/(1.1.1)/(2.2.2)] [print 'error] [probe e]

print-name 'map
bl-map: [#(a: 1) [#(b: 2) 'ok] ] ()
either error? e: try [bl-map/(#(a: 1))/(#(b: 2))] [print 'error] [probe e]

print-name 'time
bl-time: [1:0:0 [2:0:0 'ok] ] ()
either error? e: try [bl-time/(1:0:0)/(2:0:0)] [print 'error] [probe e]

print-name 'percent
bl-date: [1-april-2019 [3-may-3019 'ok] ] ()
either error? e: try [bl-date/(1-april-2019)/(3-may-3019)] [print 'error] [probe e]