--- a/src/sim.tp	Mon Jul 16 04:37:00 2012 -0700
+++ b/src/sim.tp	Mon Jul 16 04:48:50 2012 -0700
@@ -401,6 +401,12 @@
 					}
 					os write: 2 "\n"
 				}
+				printMoves <- {
+					foreach: moves :idx m {
+						os write: 1 m
+					}
+					os write: 1 "\n"
+				}
 				clone <- {
 					cgrid <- #[]
 					foreach: grid :idx el {
@@ -517,8 +523,8 @@
 		} else: {
 			verbose <- true
 			text <- readFile: (args get: 1)
-			print: text
-			//os close: 1
+			os write: 1 text
+			os close: 1
 			simState <- state fromStr: text
 			while: { not: (simState ended: ) } do: {
 				simState advance: (getMove: )