single-line-reformat - Reformats a block/object to a single line if it's short enough (See related posts)

    single-line-reformat: func [
        "Reformats a block/object to a single line if it's short enough."
        val [any-string!] /local s map
    ] [
        either 80 >= length? s: trim/lines copy val [
            map: ["{ " "{"  "[ " "["  " }" "}"  " ]" "]"]
            foreach [from to] map [replace s from to]
        ] [val]
    ]