user info for listing of open predictions

code/update_predictions.rkt

@@ -119,6 +119,7 @@
 (define (printopen)
   (define uIDs (query-list conn
                            "SELECT DISTINCT ID FROM predictions"))
+  (write-string "ID(DATE) PREDICTION: LATEST FORECAST\n")
   (map printpred uIDs))
 
 ; find unresolved predictions
@@ -151,4 +152,4 @@
   [else (error(string-append "Unknown mode. Try " progname " help\n\n"))])
 
 ; close the databse
-(disconnect conn)
+(disconnect conn)