fgh::Num a =>  a -> a

fgh = fg <*> h

{-  fgh a = fg a (a * 100)

    fgh = \a -> fg a (a * 100)

-}

, that is