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