module FixerUpper where

a = const <$> Just <$> "Hello" <*> "World"

b = (,,,) <$> Just 90
    <*> Just 10 <*> Just "Tierness" <*> pure [1, 2, 3]