$set_S[$r] = [$r];

##</code><code>##

    $set_S[$r] = $r;

##</code><code>##

    print "$set_S[$s]\t$epsilons[$s]\t";
    $set_S[$s] = $set_S[$s] + $epsilons[$s];
    print $set_S[$s], "\n";