Map on Closures in OCaml

let empty = fun _ -> 0
let add dict key value = fun key' -> if key' = key then value else dict key'
let find dict key = dict key