#include <stdio.h>
#include <stdlib.h>

int main( void )
{
int d[] = { 0 };
system ( "guile -c '(letrec ((f (lambda (n x) (if (= n 0) x (f (- n 1) (* n x)))))) (letrec ((g (lambda (n) (if (<= n 100) (begin (display (f n 1)) (newline) (g (+ n 1))))))) (g 1)))'" );
return d[0];
}