[Haskell-cafe] constant functions

I'm trying to learn Haskell and translating some Lisp functions as exercises. How would I write a Haskell function named ALWAYS that behaves like this: one = always 1 bozo = always "clown"

map one [2,3,4,5,6] [1,1,1,1,1]

one 62 1

map bozo [2,3,4,5,6] ["clown","clown" ,"clown", "clown"," clown"]

bozo 62 "clown"

i.e. ALWAYS returns a function with a single parameter that is ignored, returning instead the value given to ALWAYS when the function was created. This is what I've been trying: always :: (a -> a) -> a -> a always x = (\y -> x) one = always 1 Michael __________________________________________________ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com