let bind x f = f x