sub'DESTROY{print${sub'_(_){bless\pop}pop}->[0]}
_[J,_[q q q,_[o^O,_[q[,]],_[k,_[r],_[e]],_[h,_[c
],_[a]]],_[P,_[n&_],_[r],_[e],],],_[u,_[a,_[h,_[
r],_[e],],_[n,_[t],_[o],],],_[q[s],_[$"],_[t]]]]

##</code><code>##

_[J,
    _[q[ ],
        _[q[ ],
            _[q[,]],
            _[k,
                _[r],
                _[e]
            ],
            _[h,
                _[c],
                _[a]
            ]
        ],
        _[P,
            _[l],
            _[r],
            _[e],
        ],
    ],
    _[u,
        _[a,
            _[h,
                _[r],
                _[e],
            ],
            _[n,
                _[t],
                _[o],
            ],
        ],
        _[q[s],
            _[q[ ]],
            _[t]
        ]
    ]
];