Add Control.Cond with a cond construct