 (def not-on (comp complement on))
 
 (def times
-  {(within? [2016 6 24] [2016 9 11])
-   {pr/monday?
-    ["12:15 AM"
-     "5:45 AM"
-     "7:00 AM"
-     "8:00 AM"
-     "9:30 AM"
-     "11:30 AM"
-     "1:30 PM"
-     "3:30 PM"
-     "5:30 PM"
-     "7:30 PM"
-     "9:15 PM"]
-
-    (some-fn pr/tuesday? pr/wednesday?)
-    ["7:00 AM"
-     "8:00 AM"
-     "9:30 AM"
-     "11:30 AM"
-     "1:30 PM"
-     "3:30 PM"
-     "5:30 PM"
-     "7:30 PM"]
-
-    pr/thursday?
-    ["7:00 AM"
-     "8:00 AM"
-     "9:30 AM"
-     "11:30 AM"
-     "1:30 PM"
-     "3:30 PM"
-     "5:30 PM"
-     "7:30 PM"
-     "8:30 PM"
-     "10:15 PM"]
-
-    pr/friday?
-    ["7:00 AM"
-     "8:00 AM"
-     "9:30 AM"
-     "11:30 AM"
-     "1:30 PM"
-     "3:30 PM"
-     "4:30 PM"
-     "5:30 PM"
-     "6:30 PM"
-     {(ends 2016 9 2) "7:00 PM"}
-     "7:30 PM"
-     {(ends 2016 9 2) "8:00 PM"}
-     "8:30 PM"
-     "9:30 PM"
-     "10:30 PM"]
-
-    (some-fn pr/saturday? pr/sunday? (on 2016 9 5))
-    ["8:00 AM"
-     "9:25 AM"
-     "10:25 AM"
-     "11:25 AM"
-     "12:25 AM"
-     "1:25 AM"
-     "2:20 AM"
-     "3:20 PM"
-     "4:20 PM"
-     "5:20 PM"
-     "6:20 PM"
-     "7:20 PM"
-     "8:20 PM"
-     "9:20 PM"
-     "10:30 PM"]}
-
-   (within? [2016 5 26] [2016 6 23])
-   {pr/monday?
-    [{(every-pred (not-on 2016 5 30)
-                  (not-on 2016 5 31))
-      "5:40 AM"}
+  {(within? [2017 5 25] [2017 6 22])
+   {(every-pred pr/monday?
+                (not-on 2017 5 29))
+    ["5:40 AM"
      "7:00 AM"
      "9:30 AM"
      "11:30 AM"

     "10:30 PM"]

    pr/saturday?
    ["12:00 AM"
     "8:00 AM"
     "9:25 AM"
     "10:25 AM"

     "6:20 PM"
     "7:20 PM"
     "8:20 PM"
     "9:20 PM"]}})

(defn parse-ferry-time
  [time-s]
