Funny `of` op!

of.red

Red [
    Date: 26-Apr-2019
    Idea: [@nedzadarek @giesse]
    Source: https://gitter.im/red/help?at=5cc295d3375bac747008989b
]
of: make op! function ['word 'value] [
    either any [
        attempt [out: reflect get value word] 
        attempt [out: reflect value word] 
        attempt [
            rule: [collect any [keep _ | skip]] 
            put third rule 'keep to-word head change back tail to-string word #"!" 
            out: parse value rule
        ] 
        attempt [out: parse get value rule]
    ][out][
        cause-error 'user 'message ["Bad arguments!"]
    ]
]
; Another version from @nedzadarek's https://gitter.im/red/help?at=5cc36f27990feb45180a53d7
comment [
of: make op! func [rule source] [
    either any [object? :source map? :source any-function? :source] [
        reflect :source rule
    ][
        parse source [collect any [keep rule | skip]]
    ]
]
]