double PROGRAM GROUCHO