let apply f x = Apply (f, x)