(let ((type p (record string int)) (var x (new p "Phil" 24))) ())