data PackingList = UndefinedB 
  deriving Show

data Trip = UndefinedA
  deriving Show

salzburgTrip :: Trip
salzburgTrip = undefined

telfsTrip :: Trip
telfsTrip = undefined