(defmodule Hello _ (HelloHelp)) (define (nnMax lst) (case lst ((Nil) 0) ((Cons car-value cdr-value) (let ((rec (nnMax cdr-value))) (if (> rec car-value) rec car-value))))) (define (mapcar f lst) (case lst ((Nil) Nil) ((Cons car-value cdr-value) (Cons (f car-value) (mapcar f cdr-value))))) (define (mySucc n) (+ n 1)) (define integer (Cons 1 (mapcar mySucc integer))) ; y f = f (y f) (define (y f) (f (y f))) (define fact (y (lambda (f n) (if (== n 0) 1 (* n (f (- n 1)))))))