andreas

open Core.Std
open Async.Std

module Ints = struct
    type t = int
    let to_string = string_of_int
    let of_string = int_of_string
end

module IntCache = Memcached.Make(Ints)

andreas

{"script":"(a+b)*c*d", "context": {"a": 3, "b": 5, "c": 7, "d": 11}}