4.3BSD/usr/contrib/icon/book/f/delete2.icn

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