Hello.

What I need to drink to compile it?

class foo ch =
object
 method myprintf = Printf.fprintf ch
end

The compiler says 
The method myprintf has type ('a, out_channel, unit) format -> 'a where 'a
is unbound