Trouble Defining an Object

[Paul Snively <psnively@mac.com>]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

Folks,

I'm trying to define a class that, given a string containing bytes  
from, e.g. an MP3, Ogg Vorbis, etc. music, contains that music.  
Later, of course, I'll make the class actually do something with the  
data, but for right now I can't even get the code to compile. I'm  
using the current ocamlsdl and findlib. Here's a copy of my session  
in the ocamlsdl toplevel:
- ----------------------------snip snip----------------------------
         Objective Caml version 3.08.4

# #require "sdl.sdlmixer";;
/usr/local/lib/ocaml/site-lib/sdl: added to search path
/usr/local/lib/ocaml/site-lib/sdl/sdlmixer.cma: loaded
# open Sdlmixer;;
# open Filename;;
# class foo init_song =
   let name, chan = open_temp_file ~mode:[Open_binary] "foo" "bar" in
     output_string chan init_song;
     close_out chan;
     let the_song = load_music name in
       object
     val mutable song = the_song
       end;;
               Characters 123-124:
       output_string chan init_song;
                                   ^
Syntax error
- ----------------------------snip snip----------------------------

I'm at a loss to understand where the error lies. Any advice would be  
greatly appreciated.

Many thanks and best regards,
Paul

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.1 (Darwin)

iEYEARECAAYFAkMgfwcACgkQO3fYpochAqKSnQCgtaAHbn6WNPyBf5dymt+E2l8n
IzEAoIzGA4Xb5igB719KOf/msuEBG/wD
=HlQ/
-----END PGP SIGNATURE-----