map{print y/<>()/() /rwhile y/<>/ /,s/\(((?0)*).( *$)?/<$1>/g}<>