class input_channel : 'a Seqdb_fsys_types.file_system -> 'a -> Netchannels.in_obj_channel
'a Seqdb_fsys_types.file_system -> 'a ->
Netchannels.in_obj_channel
let ch = new input_channel fsys file
ch