#!perl -lp

BEGIN {
    $s = shift
}

sub cut
{
    my ($s, $r) = pop;
    for (split /,/, shift) {
        $r .= /(\d+)-(\d+)/ ? substr $s,$1-1,$2-$1+1 : substr $s, $_-1,1;
    }
    $r;
}

chomp;
$_=cut $s, $_;

##</code><code>##

#!perl -lp
BEGIN{@s=split/,/,shift}
chomp;
$x=$_;
/(\d+)-?/,
$r.=substr$x,$1-1,($'||$1)-$1+1
for@s,$r='';
$_=$r

##</code><code>##

#!perl -ln
BEGIN{($s=shift)=~s/-/../g}
chomp;
$x=$_;
print+map{substr$x,$_-1,1}eval$s