$_=->_,__,*___{__ ?_[__]|$_[_,*___]:[]}
__=->_{$_[->*___{__[_-___]},*_]<<_*''}
[*$<]*''=~/#{'(.)?'*$$}/
$><<__[$~[$.,$$]|[]]*$/