Random.self_init ()

let fastFood = ["Wendys"; "Rallys"; "DQ"; "Popeyes"; "Quiznos"; "KFC"; "Taco Bell"; "Burger King"; "McDonalds"]

let randomChoice lst = 
  List.nth lst (Random.int (List.length lst))

let change_label_cb label () =
  label#set_text (randomChoice fastFood) 

let main () = 
  let window = GWindow.window ~title:"Fastfood" ~width:150 ~height:60 ~border_width:10 () in
    window#connect#destroy ~callback:GMain.Main.quit;
    let box1 = GPack.vbox ~packing:window#add () in
    let label = GMisc.label ~text:"Where to eat?" ~packing:box1#pack () in
    let button = GButton.button ~label:"Randomize" ~packing:box1#pack () in
      button#connect#clicked ~callback:(change_label_cb label);
      window#show ();
      GMain.Main.main ()

let _ = main ()