Pipe slowed down to 200 cps

slocat.c

main () {
        int f = 0;
        int w;
        char buf [1024];
        while (1) {
                int r = read (0, buf, sizeof (buf));
                if (r <= 0) break;
                if (r < sizeof (buf)) {
                        f = 1;
                }
                for (w = 0; w < r; ) {
                        int x = r - w;
                        if (x > 2) x = 2;
                        x = write (1, buf + w, x);
                        if (x <= 0) break;
                        w += x;
                        if (f) usleep (5000 * x);
                }
        }
}