sig
  val ssc : int -> unit
  val lsc : int -> unit
  val pp_fvec : ('n, float, 'prec, 'cnt_or_dsc) Slap_io.pp_vec
  val pp_cvec : ('n, Complex.t, 'prec, 'cnt_or_dsc) Slap_io.pp_vec
  val pp_ivec : ('n, int32, 'prec, 'cnt_or_dsc) Slap_io.pp_vec
  val pp_rfvec : ('n, float, 'prec, 'cnt_or_dsc) Slap_io.pp_vec
  val pp_rcvec : ('n, Complex.t, 'prec, 'cnt_or_dsc) Slap_io.pp_vec
  val pp_rivec : ('n, int32, 'prec, 'cnt_or_dsc) Slap_io.pp_vec
  val pp_fmat : ('m, 'n, float, 'prec, 'cnt_or_dsc) Slap_io.pp_mat
  val pp_cmat : ('m, 'n, Complex.t, 'prec, 'cnt_or_dsc) Slap_io.pp_mat
  val pp_imat : ('m, 'n, int32, 'prec, 'cnt_or_dsc) Slap_io.pp_mat
end