changes

• README :: line 13

  0
  

• README :: line 17

  0
  

• README :: line 21

  0
  

• ocscheme.ml :: line 44

  let string_of_number n = match n with
    |F f -> string_of_float f
    |I i -> string_of_int i
  
  

• ocscheme.ml :: line 93

  	   (BranchD (sym, List.rev args), rest)
  

  	   (BranchD (sym, args), rest)
  

• ocscheme.ml :: line 138

        |[] -> if List.length stack > 0 then List.hd stack else I 0
  

        |[] -> if List.length stack > 0 then string_of_number (List.hd stack) else ""
  

• ocscheme.ml :: line 161

  		 match run code with
  		   |F f -> string_of_float f
  		   |I i -> string_of_int i
  

  		 run code