Tui_snake
type model
val program : model Tui.program
val body : model -> (int * int) list
val crashed : model -> bool
val score : model -> int