format spaced rep output

projects/kiss-spaced-rep/src/kiss_spaced_rep/Main_.kiss

@@ -34,15 +34,15 @@
                 (set ,cPreviousEaseFactor (max 1.3 ,cPreviousEaseFactor))
                 (set ,cPreviousInterval interval)
                 (doFor _ (range interval)
-                    (set ,cNextDate #{DateTime.now() + oneDayInterval;}#))
-                (print interval))
+                    (set ,cNextDate #{DateTime.now() + oneDayInterval;}#)))
 
             (let [:DateTime nextDate ,cNextDate]
                 (if #{DateTime.now() > nextDate;}#
                         {
-                            (print .front ,cObject)
+                            (Sys.print .front ,cObject)
                             (.readLine (Sys.stdin))
                             (print .back ,cObject)
+                            (Sys.print "Score (0-5): ")
                             (,cScore (Std.parseInt (.readLine (Sys.stdin))))
                         }
                     (print "skipping a card until $(nextDate.toString)")))