(->) r
hsinstance Applicative ((->) r) where pure x = (\_ -> x) f <*> g = \x -> f x (g x)
pure :: b -> (a -> b)
const
(<*>) :: (a -> b -> c) -> (a -> b) -> (a -> c)
(.)
hs(+) <$> (+3) <*> (*100) $ 5 --508