type foobar = (int , int) map
let foobar : foobar = Map.empty
let foobarz : foobar = Map.literal [ (1 , 10) ; (2 , 20) ]
let foo : int = Map.find 1 foobarz