          max-distance 1000 ; (from jump in) in Ls
          pad-size :Small
          search-range "15"}}]
-  (println station-name-start)
   (let [request-body {:Cargo cargo
                       :Cash cash
                       :EndStationId (station-id station-name-end)

                      :SearchRange search-range
                      :SearchType (get search-types (keyword search-type))
                      :Shipyard (exists? has-shipyard)}]
    (println request-body)
    (http/post 
      search-url
      {:timeout 1000

                      :PadSize pad-size
                      :SearchRange search-range
                      :StartStationId (station-id station-name-start)}]
    (log request-body)
    (http/post 
      calculate-url
      {:timeout 1000
       :headers {"Content-Type" "application/json"}
       :body (generate-string request-body)}
      (fn [{:keys [error body]}]
        (if error
          (do 
            (log "! Error calculating:" error "Request:" request-body)
