let rec parse_texpr = function
        | "cadena" -> Tstring
        | "flotante" -> Tfloat
        | "entero" -> Tint
        | t -> failwith("Tipo básico '"^t^"', no reconocido, "
                ^"sólo puede ser cadena, flotante o entero")