myAny2 :: (a -> Bool) -> [a] -> Bool
myAny2 f = foldr step False
  where
    step _ True = True
    step a False | f a = True
    step _ _ = False
myAny2 :: (a -> Bool) -> [a] -> Bool
myAny2 f = foldr step False
  where
    step _ True = True
    step a False | f a = True
    step _ _ = False
myAny2 f = foldr step False
  where
    step _ True = True
    step a False | f a = True
    step _ _ = False