Plan 9 from Bell Labs’s /usr/web/sources/patch/ape-erik/nap.c.orig
int nap(int n) { register i; while(n-- > 0){ for(i = 0; i < 1000*1000*10; i++) ; } return 0; }