(let ((type a (record string int))
      (var b 1)
      (var c "hello world")
      (var d (new a "i am an a!" 23)))
  (+ (+ b c) d))