1 ;;; examples/safe/untrusted.scm -- Scheme file to be run in a safe
6 ;;; This is an example file to be evaluated by the `safe' program in
9 ;;; *Note* that the files in this directory are only suitable for
10 ;;; demonstration purposes, if you have to implement safe evaluation
11 ;;; mechanisms in important environments, you will have to do more
12 ;;; than shown here -- for example disabling input/output operations.
14 ;;; Author: Martin Grabmueller
19 ;; fact -- the everlasting factorial function...
24 (* n (fact (- n 1)))))
26 ;; Display the factorial of 0..9 to the terminal.