sig
  val chop_spaces : string -> string
  val int : string -> int
  val float : string -> float
end