classe Programa removida, a parte em perl já tera substituido labels por inteiros, logo nao precisamos do hash. Maquina teoricamente ja funcionaria para inteiros