-- import Data.List (lookup)
type DepartAt = Int
type TravelTime = Int
data Airport = A | B deriving Show
data Timetable = Timetable {
  airport::Airport,
  travelTime::Int,
  departs::[DepartAt]
  } deriving Show
type Trip = Int

main = return ()

solve :: Airport -> TravelTimes -> Timetable -> Trip -> Trip
depart :: Timetable -> Trip -> Timetable
depart (_ _ []) trip = trip

roundTrip :: Trip -> Int
roundTrip t = t `div` 2
