sig
  type positions = { left : bool; right : bool; up : bool; down : bool; }
  val string_of_pos : Sdlhat.positions -> string
  type direction =
      Centered
    | Up
    | Right
    | Down
    | Left
    | Right_Up
    | Right_Down
    | Left_Up
    | Left_Down
  val string_of_dir : Sdlhat.direction -> string
  val dir_of_string : string -> Sdlhat.direction
end