      "8:20 PM"
      "9:20 PM"]
 
-    (some-fn pr/sunday? (on 2016 5 30))
+    (some-fn pr/sunday? (on 2017 5 29))
     ["8:00 AM"
      "9:25 AM"
      "10:25 AM"
      "11:25 AM"
-     "12:25 AM"
-     "1:25 AM"
+     "12:25 PM"
+     "1:25 PM"
      "2:20 PM"
      "3:20 PM"
      "4:20 PM"

     "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]

     "5:30 PM"
     "7:30 PM"]

    (on 2017 5 30)
    "5:40 AM"

    (some-fn pr/tuesday? pr/wednesday? pr/thursday?)
    ["7:00 AM"
     "9:30 AM"
     "11:30 AM"
     "1:30 PM"
     "3:30 PM"
     "5:30 PM"
     "7:30 PM"]

    pr/thursday
    "9:15 PM"

    pr/friday?
    ["7:00 AM"
