(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))