[Haskell-beginners] foldr with ($) as the passed function