{
    dup
    length
    dec
        @0
        half
        inc
        chunks
        push-a
        map
    f6
    "{"
    swap
    "}"
}
save-a
eval