Solving `Passport Application` with Haskell