spacepaste

Paste details

reply | raw

  1.  
  2. let operand_stack = ref [] in
  3. let add () =
  4. match !operand_stack with
  5. | x :: y :: tl -> operand_stack := x + y :: tl; x + y
  6. | x :: _ -> x
  7. | [] -> 0
  9.  
Powered by spacepaste. Paste removal.