let rec mergeObs (x : Button list) n = match x with
                                                    | c::[] -> Observable.map (fun _-> n) c.Click
                                                    | c::cs -> Observable.merge (Observable.map (fun _-> n) c.Click) (mergeObs cs (n+1))
             mergeObs GUI.buttonList 0