let color_of_state =
  let table = [|Graphics.white; 0x00aaee; 0xaa00ee; 0xbbddff(*light blue*)|] in
fun state -> table.(state)