#!/bin/sh /usr/local/bin/lminsh

(defun fact ("integer" n)
    (if (<= n 1)
	1
	(* n (fact (- n 1)))
    )
)

(write-line (fact (parse-integer (first args))))
