sig
  module Scanning :
    sig
      type in_channel
      type scanbuf = Scanf.Scanning.in_channel
      val stdin : Scanf.Scanning.in_channel
      type file_name = string
      val open_in : Scanf.Scanning.file_name -> Scanf.Scanning.in_channel
      val open_in_bin : Scanf.Scanning.file_name -> Scanf.Scanning.in_channel
      val close_in : Scanf.Scanning.in_channel -> unit
      val from_file : Scanf.Scanning.file_name -> Scanf.Scanning.in_channel
      val from_file_bin : string -> Scanf.Scanning.in_channel
      val from_string : string -> Scanf.Scanning.in_channel
      val from_function : (unit -> char) -> Scanf.Scanning.in_channel
      val from_channel : Pervasives.in_channel -> Scanf.Scanning.in_channel
      val end_of_input : Scanf.Scanning.in_channel -> bool
      val beginning_of_input : Scanf.Scanning.in_channel -> bool
      val name_of_input : Scanf.Scanning.in_channel -> string
      val stdib : Scanf.Scanning.in_channel
    end
  type ('a, 'b, 'c, 'd) scanner =
      ('a, Scanf.Scanning.in_channel, 'b, 'c, 'a -> 'd, 'd)
      Pervasives.format6 -> 'c
  exception Scan_failure of string
  val bscanf : Scanf.Scanning.in_channel -> ('a, 'b, 'c, 'd) Scanf.scanner
  val sscanf : string -> ('a, 'b, 'c, 'd) Scanf.scanner
  val scanf : ('a, 'b, 'c, 'd) Scanf.scanner
  val kscanf :
    Scanf.Scanning.in_channel ->
    (Scanf.Scanning.in_channel -> exn -> 'd) ->
    ('a, 'b, 'c, 'd) Scanf.scanner
  val ksscanf :
    string ->
    (Scanf.Scanning.in_channel -> exn -> 'd) ->
    ('a, 'b, 'c, 'd) Scanf.scanner
  val bscanf_format :
    Scanf.Scanning.in_channel ->
    ('a, 'b, 'c, 'd, 'e, 'f) Pervasives.format6 ->
    (('a, 'b, 'c, 'd, 'e, 'f) Pervasives.format6 -> 'g) -> 'g
  val sscanf_format :
    string ->
    ('a, 'b, 'c, 'd, 'e, 'f) Pervasives.format6 ->
    (('a, 'b, 'c, 'd, 'e, 'f) Pervasives.format6 -> 'g) -> 'g
  val format_from_string :
    string ->
    ('a, 'b, 'c, 'd, 'e, 'f) Pervasives.format6 ->
    ('a, 'b, 'c, 'd, 'e, 'f) Pervasives.format6
  val unescaped : string -> string
  val fscanf : Pervasives.in_channel -> ('a, 'b, 'c, 'd) Scanf.scanner
  val kfscanf :
    Pervasives.in_channel ->
    (Scanf.Scanning.in_channel -> exn -> 'd) ->
    ('a, 'b, 'c, 'd) Scanf.scanner
end