Script started on Fri Jul 28 23:17:16 2000
rvloon@motif:~/book/documentation-chapter/code/clean$ cp ../faculty.nw .
rvloon@motif:~/book/documentation-chapter/code/clean$ notangle -Rfaculty.c facut 
[Arvloon@motif:~/book/documentation-chapter/code/clean$ notangle -Rfaculty.c facu[K

[K[Arvloon@motif:~/book/documentation-chapter/code/clean$ notangle -Rfaculty.c faculty.nw >facutl  lty.c
rvloon@motif:~/book/documentation-chapter/code/clean$ cat faculty.c
#include <stdio.h>


int faculty(int n)
{
    if (n <= 0)
      return 1;


  return   n * faculty(n-1)
;
}


int main(void)
{
  int result = faculty(5) ;

  printf ("The faculty function returned %d as the answer.\n",result);

  return 0;
}

rvloon@motif:~/book/documentation-chapter/code/clean$ gcc -ofaculty faculty.c
rvloon@motif:~/book/documentation-chapter/code/clean$ ./faculty 
The faculty function returned 120 as the answer.
rvloon@motif:~/book/documentation-chapter/code/clean$ exit

Script done on Fri Jul 28 23:17:53 2000
