So here is my goofy sandbox to play with Applicatives in PureScript module Main where import Debug.Trace data Foo a = Foo a instance showFoo :: (Show a) => Show (Foo a) where show (Foo a) = "I pi...Learn More