let subb s ps pe = String.sub s ps (pe-ps)