#!perl -p
use bigint;0while s;\d+;(@{[($&/2||'').'()'x($&%2)]})