Don't generate duplicate code (e.g. tuples; 'use strict')

src/saplcg.icl

@@ -60,7 +60,7 @@ Start w
 | any isNothing files = error Nothing "Parsing failed" w
 
 # (out,w) = stdio w
-# (out,_,w) = seqSt (genCode opts) [f \\ Just f <- files] (out,pst,w)
+# (out,_,w) = genCode opts (join "\n" [f \\ Just f <- files]) (out,pst,w)
 # (_,w) = fclose out w
 
 = w