print pack 'C*', @nums[map {--$_} @order];