An algorithm for design of beam compensators