sig
  val play :
    ?check_status:bool -> 'a Mindstorm.conn -> ?loop:bool -> string -> unit
  val stop : ?check_status:bool -> 'a Mindstorm.conn -> unit
  val play_tone :
    ?check_status:bool -> 'a Mindstorm.conn -> int -> int -> unit
end