# Pastebin QVu0YNWM
all''' :: (a -> Bool) -> [a] -> Bool
all''' f [] = True
all''' f (x:xs) = f x && all''' f xs
--Error during run time
{-
all''' [2,4,6]

<interactive>:48:8: error:
    • Couldn't match expected type ‘a -> Bool’ with actual type ‘[a0]’
    • In the first argument of ‘all'''’, namely ‘[2, 4, 6]’
      In the expression: all''' [2, 4, 6]
      In an equation for ‘it’: it = all''' [2, 4, 6]
    • Relevant bindings include
        it :: [a] -> Bool (bound at <interactive>:48:1)
*Main> :l 2-functions-higherorder.hs 
-}