      "5:30 PM"
      "7:30 PM"]
 
+    (on 2017 5 30)
+    "5:40 AM"
+
     (some-fn pr/tuesday? pr/wednesday? pr/thursday?)
     ["7:00 AM"
-     "8:30 AM"
+     "9:30 AM"
      "11:30 AM"
      "1:30 PM"
      "3:30 PM"
      "5:30 PM"
-     "7:30 PM"
-     {pr/thursday? "9:15 PM"}]
+     "7:30 PM"]
+
+    pr/thursday
+    "9:15 PM"
 
     pr/friday?
     ["7:00 AM"

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

   (within? [2016 4 8] [2016 5 25])
   {pr/monday?
    ["7:00 AM"
     "10:30 AM"
     {(starts 2016 5 16) "12:15 PM"}
     "3:30 PM"
     "5:10 PM"]

    (some-fn pr/tuesday? pr/wednesday? pr/thursday?)
    ["7:00 AM"
     "10:15 AM"
     {(starts 2016 5 12) "12:15 AM"}
     "3:30 PM"
     "5:10 PM"]

    (every-pred pr/friday?)
    ["7:00 AM"
     "10:30 AM"
     "1:30 PM"
     "3:30 PM"
     {(starts 2016 4 15) "5:30 PM"}
     "6:30 PM"
     {(starts 2016 4 15) "7:30 PM"}
     "8:30 PM"
     {(starts 2016 4 22) "9:30 PM"}]

    (every-pred pr/saturday?)
    ["8:00 AM"
     "9:25 AM"
     "10:25 AM"
     "11:25 AM"
     {(starts 2016 4 23) "12:25 PM"}
     "1:25 PM"
     "3:20 PM"
     "4:20 PM"
     "6:00 PM"
     {(starts 2016 4 23) "8:00 PM"}]

    (every-pred pr/sunday?)
    ["9:25 AM"
     "11:25 AM"
     {(starts 2016 4 24) "12:25 PM"}
     "1:25 PM"
     {(starts 2016 4 24) "2:20 PM"}
     "3:30 PM"
     "4:20 PM"
     "5:20 PM"
     "6:20 PM"
     {(starts 2016 4 24) "7:20 PM"}]}})

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

     "10:30 PM"]

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