Update menu.ml

Menu debugged and basically working (to be improved)