sig
  type timetag = int * int
  type data =
      [ `Blob of string
      | `Char of char
      | `Double of float
      | `False
      | `Float of float
      | `Infinitum
      | `Int32 of int
      | `Int64 of int
      | `Midi of string
      | `Nil
      | `String of string
      | `Symbol of string
      | `Timetag of LO.Message.timetag
      | `True ]
end