home *** CD-ROM | disk | FTP | other *** search

---

/ BURKS 2 / BURKS_AUG97.ISO / BURKS / LANGUAGE / ML / MOSMLMAN / img25.gif

< prev

next >

Graphics Interchange Format  |  1997-07-31  |  2KB  |  403x167  |  1-bit (2 colors)

Labels: black | darkness
OCR: structure Evaluate :> Evaluate = struct local open Expr in fon aval (Cst n) = 1 | aval (Nag a) = " (aval a) - aval (Plus (a1, a2)) = aval al + aval a2; fon tast a = (aval a = aval (Reduce. reduce a) and

---