BSD 4.3
procedure delete(s,c) while s[upto(c,s)] := "" return s end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.