procedure delete(s,c)
   while s[upto(c,s)] := ""
   return s
end