type foo = {
}
type bar = {
}
let () =
let f = { a = 1 ; b = "foo" }
and b = { a = 2.3 ; x = 5 } in
Printf.printf
"{%d, %s}\n{%f, %d}\n" f
.a f
.b b
.a b
.x
dHlwZSBmb28gPSB7CglhIDogaW50IDsKCWIgOiBzdHJpbmcKfQoKdHlwZSBiYXIgPSB7CglhIDogZmxvYXQgOwoJeCA6IGludAp9CgpsZXQgKCkgPQoJbGV0IGYgPSB7IGEgPSAxIDsgYiA9ICJmb28iIH0KCWFuZCBiID0geyBhID0gMi4zIDsgeCA9IDUgfSBpbgoJUHJpbnRmLnByaW50ZiAieyVkLCAlc31cbnslZiwgJWR9XG4iIGYuYSBmLmIgYi5hIGIueAo=