Harray, Larray, Barry

import qualified Data.List as L

names = ["Harry", "Larray", "Barray"]
result1 = L.find isHarray names
    where isHarray name = name == "Harry"
    
result2 = L.find isJake names
    where isJake _ = True
    
main = putStrLn (show result2)