map(undef@$_,0..9),(map{/ = /;$h=$`;@$h=eval$'=~s/\d+/@{$&}?"@{$&}":$&/ger}split"; "),print@ans,$/for<>