I really like this:

twoK=1:(map (2*) twoK)

I still have a long way to go though - I can't write a lot of it without getting stuck and giving up. It would be really nice if I was comfortable with haskell.