farlands/langs/wm/wclib/string.wc

strlen(s) {
  l=0;

  while (*s++)
    l++;

  return l;
}

strcpy(s, d) {
  i=0;

  while (s[i]) {
    d[i] = s[i];

    i++;
  }
}