XSD: Computation of primitive type for simpleTypes. (A bit broken as yet.)