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

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