let
color_of_state state =
if
state
then
Graphics
.blue
else
0xddeeff