Looking for idiomatic way to write expression with `Applicative`

applicative-something.hs

#!/usr/bin/env stack
-- stack --resolver lts-11.2 script
{-# OPTIONS_GHC -Wall -W -Werror #-}

data Foo = Foo
  { fooInt :: Int
  , fooBar :: Bar
  } deriving Show

data Bar = Bar Baz
  deriving Show

data Baz = Baz
  { bazInt :: Int
  , bazChr :: Char
  , bazStr :: String
  } deriving Show

main :: IO ()
main = do
    foo <- Foo <$> pure 42
               <*> (Bar <$> (Baz <$> pure 13
                                 <*> pure 'c'
                                 <*> pure "whatever"
                            )
                   )
    print foo