app use ["Data.sml", 
	 "Eqset.sig", "Eqset.sml",
	 "Compile.sig", "Compile.sml", 
	 "Parse.sig", "Parse.sml",
	 "Run.sig", "Run.sml",
	 "Commands.sig",
	 "Commands.sml"];

open Commands;

val ones     = pc "letrec x = pack{2, 1, x} in x";
val nats     = pc (readfile "cl/nats.cl");
val sieve    = pc (readfile "cl/sieve.cl");
val takefrom = pc (readfile "cl/takefrom.cl");
val edigits  = pc (readfile "cl/edigits.cl");
val fibs     = pc (readfile "cl/fibs.cl");
val hamming  = pc (readfile "cl/hamming.cl");

