/* Karplus-Strong string synthesis (“Digitar”) in a very simple C program.
./ks-tiny | aplay
 */
#include <stdio.h>

enum { delay = 72 };

int s[delay] = { 512 };

int main()
{
  int i = 0, i2 = 0;
  for (int n = 8000; n--; i = i2) {
    i2 = i + 1;
    if (i2 == delay) i2 = 0;

    s[i] += s[i2];
    s[i] >>= 1;

    putchar(s[i]);
  }

  return 0;
}