#!/usr/bin/perl -ln
$n+=(1<<length)-1for/(\d+)/g;
END{print $n}